var
a: array[1..5] of string;
i: integer;
begin
randomize;
for i:= 1 to 5 do readln(a[i]);
writeln('Фамилии с оценкой 5: ');
for i:= 1 to 5 do if random(1,6) = 5 then writeln(a[i])
end.
var
a: array[1..5] of string;
i: integer;
begin
randomize;
for i:= 1 to 5 do readln(a[i]);
writeln('Фамилии с оценкой 5: ');
for i:= 1 to 5 do if random(1,6) = 5 then writeln(a[i])
end.