write(‘Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО ‘);
read(i);
until a=1;
write(‘Программа завершена. Спасибо за использование’);
end.
ОТРЕДАКТИРУЙТЕ ПОЖАЛУЙСТА ЧТОБЫ ВЫПОЛНЯЛОСЬ

Вопрос школьника по предмету Информатика

write(‘Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО ‘);
read(i);
until a=1;
write(‘Программа завершена. Спасибо за использование’);
end.
ОТРЕДАКТИРУЙТЕ ПОЖАЛУЙСТА ЧТОБЫ ВЫПОЛНЯЛОСЬ

Ответ учителя по предмету Информатика

var a:integer;

begin

repeat

write(‘Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО ‘);

readln(a); 

until a=1; 

write(‘Программа завершена. Спасибо за использование’);

end.

Пример:

Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 3
Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 1
Программа завершена. Спасибо за использование