Чистый листочек

Только начал изучать этот язык (по советам многих форумчан), вот что получилось за вечер:
Вот как-то так...Ещё хотелось бы узнать, как можно всё это оформить с буквами Y и N, также, если бы пользователь не ввёл ни букву Y, ни букву N, программа редиректила его вот сюда и программа тогда бы не входила в ступор при введении неверной буквы, а просто бы давала пользователю ещё шанс ответить. Но вот с редиректом так и не получилось, даже не получилось просто чтобы выводилось сообщение вот такого вида:Ps Писать программки пока нравится, но в учебника первые 2-3 страницы понятно, а потом сразу в какие-то дебри без объяснений.
PPS Если найдётся добрый и знающий человек, который примет меня в "ученики", я буду очень рад.
PPPS Я знаю, что программка никакой пользы не принесёт, но на её примере я хотя бы смог объяснить, что именно я хочу получить от неё и чему я хочу научиться.

iRomul

Program PcHelpForum;
Var
n:real;
Begin
write ('Вы любите сайт pchelpforum.ru? 1-да, 2-нет');
read (n);
If n=2 then Writeln ('Ну и правильно.');
If n=1 then Writeln ('Дурак.');
End.

P.S.
Здесь можно сделать так

Где N и Y -константы (N=0, Y=1)
Ещё как вариант - a As Bolean, т.к. у нас всего 2 значения - одно правда, другое ложь. Сейчас попробую накатать чего-нибудь

Чистый листочек

Неправда. Лучше, чтобы в 1м варианте ещё и троянчик при нажатии кнопки 2 записывал на комп

---------- Добавлено в 16:33 ---------- Предыдущее сообщение было написано в 14:24 ----------

Опять же вопрос - как отделять переменную от её значения, а то вот получается

iRomul

Чистый листочек, ёперный театр, объявите новую переменную! Назовите её abrokadabra, тогда уж точно она не будет совпадать с N

Чистый листочек

КАроче...вот финальнй вариант, дальше вообще не знаю, что делать. При вводе параметра, отличного от множества параметров {Y,y,N,n} программа входит в ступор, также не получилось применить знак <>, у меня его вообще считывает прога как знак =, не знаю почему. На редирект полностью забил.

Qiker

Program PcHelpForum;
label 1;
Var
j,n,y:integer;
Begin

1:writeln ('Вы любите сайт pchelpforum.ru? да -1,нет - 2') ;
readln (n);
if n=1 then Writeln ('Я его тоже люблю.');
If n=2 then
begin
Writeln ('Пошла загрузка трояна...');
for j:=1to 100 do begin
writeln(j,'%');

end;

writeln('загрузка завершена');
writeln('Чтобы вылечить угрозу обратитесь по адресу PcHelpForum.ru');
end;
if (n<>1)and(n<>2) then goto 1;
end.

---------- Добавлено в 20:19 ---------- Предыдущее сообщение было написано в 20:18 ----------

Вот так прикольней))))

Чистый листочек

---------- Добавлено в 18:43 ---------- Предыдущее сообщение было написано в 18:42 ----------

Qiker, а можно сделать так, чтобы надпись задержалась на несколько секунд?

Qiker

Чистый листочек, я об этом думал, попробую на досуге)))

Чистый листочек

Qiker,
Спасибо, что научили редиректу с командами label и goto. Вот мой альтернативный вариант...

Qiker

такими темпами меня обгонишь))