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

Question

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

Answer 1

Var n:byte;
begin
n:=1;

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