помогите пожалуйста
n:=1;
begin
repeat
write(`n=`, n:5) ;
until n<=10
end

Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.

Вас заинтересует