1.
var i:Integer;
begin
i:=30;
while i <> 71
do begin
writeln(i);
i:=i+1;
end;
end.
2.
i:=1;
while i <> 31
writeln('Имя Фамилия');
