Первая задача и последние две
1)var n, i: integer;
begin
read(n);
inc(i);
while n <> i do begin
writeln('i, ','');
inc(i);
end;
end.
2) var n: integer;
begin
read(n);
while n <> 0 do begin
writeln('Фамилия');
dec(n);
end;
end.
3) var n: integer;
begin
read(n);
while n <> 0 do begin
write('+');
dec(n);
end;
end.
Поставь как лучшее решение пожалуйста