Код: Выделить всё
program b;
type anketa=record
f:string;
i:string;
o:string;
dat_r:string;
end;
var
s:array[1..4] of anketa;
i,k:integer;
begin
for i:=1 to 4 do
begin
writeln('введите ФИО');
readln(s[i].f);
readln(s[i].i);
readln(s[i].o);
writeln('ввод закончен');
end;
k:=0;
for i:=1 to 4 do
if s[1].f='в' then
begin
writeln('фамилии студентов',s[i].f,s[i].dat_r);
end
else
k:=k+1;
if k=4 then
writeln('нет');
end.