Распечатать анкетные данные студентов, получивших в
первую сессию все оценки 5.в паскале

var a,b,c,d,i:longint;s:string;m:array[1..100000] of string;beginreadln(a);for i:=1 to a dobeginreadln(s);if s[length(s)]='5' thenbegins[length(s)]:=' ';m[i]:=s;end;end;for i:=1 to a dobeginif m[i]<>'' thenwriteln(m[i]);end;end.