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

var a:integer;beginrepeatwrite('Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО ');readln(a); until a=1; write('Программа завершена. Спасибо за использование');end.Пример:Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 3Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 1Программа завершена. Спасибо за использование