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

n:=1;
while n<=10
write('n=', n:5);
еnd;

Если после n<=10 поставить do, а вместо end; - end., то получится зацикливание, что не есть хорошо. Возможно, имелось в виду это:var n:integer;begin;n:=1;while n<=10 dobegin;n+=1;write('n=', n:5);end;end.Вариант с зацикливанием( но это будет конец программы):n:=1;while n<=10 dowrite('n=', n:5); end.Вариант если учитель быдлокодер:n:=1;while n<=10 dobegin;write('n=', n:5); end;