Исправьте ошибки во фрагменте программы:

n:=1;

while n<=10

write ('n=', n:5) ;

еnd;

Если после n<=10 поставить do, а вместо end; - end., то получится зацикливание, что не есть хорошо. Возможно, имелось в виду это:

var n:integer;

begin;

n:=1;

while n<=10 do

begin;

n+=1;

write ('n=', n:5) ;

end;

end.

Вариант с зацикливанием (но это будет конец программы) :

n:=1;

while n<=10 do

write ('n=', n:5) ;

end.

Вариант если учитель быдлокодер:

n:=1;

while n<=10 do

begin;

write ('n=', n:5) ;

end;