Question

Исправьте ошибки во фрагменте программы:
n:=1
begin
repeat
write ( ' n=', n:5 ) ;
until n<=10
end;

Answer 1

var n:byte;
begin
n:=1;

repeat
writeln('n=', n:5);
n:=n+1;
until n>=10
end.