запрос (выйти(завершить программу)) "Y";"N".

[SKS]

Дано задание сделать так чтобы при завершении программы, программа давала запрос (выйти(завершить программу)) "Y";"N".
т.е. выводилось окно с запросом на подтверждение завершения программы.
Напишите пожалуйста текст!!!
Заранее благодарю!!!

[maladoy]

program zapros;
uses crt;
label m,l;
var i:integer;
s:char;
begin
i:=1;
m:i:=i+1;
writeln(i);
l: writeln('vyhod y/n');
readln(s);
if s='n' then goto m
else if s='y' then exit
else begin
writeln('nado vvesti y ili n');
goto l;
end;
end.

[SKS]

maladoy спасибо тебе помог!!!
завтра пойду сдаваться преподу )))

[maladoy]

Отзыв не забудь

[alex_fcsm]

Сообщение от maladoy

program zapros;
uses crt;
label m,l;
var i:integer;
s:char;
begin
i:=1;
m:i:=i+1;
writeln(i);
l: writeln('vyhod y/n');
readln(s);
if s='n' then goto m
else if s='y' then exit
else begin
writeln('nado vvesti y ili n');
goto l;
end;
end.

Лучше бы не использовать goto, а repeat until - преподу не понравится.
P.S. Для читабельности кода используйте теги форматирования #

[maladoy]

Просили сделать...А как не говорили прога работает? Работает! А понравиться не понравиться это уже дело личное...Итак бесплатно сделали ... А под repeat переделать я думаю много ума не надо...Я бы с удовольствием писал даже с комментариями но с телефона это ой как не удобно...[/QUOTE]

[capta1n]

через readkey

[SKS]

Спасибо пацаны! Всё работает отлично! Вам respect!