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

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

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