первую сессию все оценки 5.в паскале
Ответы:
var a,b,c,d,i:longint,
s:string,
m:array[1..100000] of string,
begin
readln(a),
for i:=1 to a do
begin
readln(s),
if s[length(s)]=5 then
begin
s[length(s)]:= ,
m[i]:=s,
end,
end,
for i:=1 to a do
begin
if m[i]<,>, then
writeln(m[i]),
end,
end.