Помошь с Pascal

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

Только начал изучать этот язык (по советам многих форумчан), вот что получилось за вечер:

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

Вот как-то так...Ещё хотелось бы узнать, как можно всё это оформить с буквами Y и N, также, если бы пользователь не ввёл ни букву Y, ни букву N, программа редиректила его вот сюда

write ('Вы любите сайт pchelpforum.ru? 1-да, 2-нет');

и программа тогда бы не входила в ступор при введении неверной буквы, а просто бы давала пользователю ещё шанс ответить. Но вот с редиректом так и не получилось, даже не получилось просто чтобы выводилось сообщение вот такого вида:

If n=(тут я хотел, чтобы были все числа, кроме 1 и 2, или все знаки, кроме N и Y) then writeln ('Вы ввели неверное число/неверный знак, попробуйте ещё раз') and Ну и вот тут редирект на строчку данную выше.

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.
Здесь можно сделать так

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

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

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

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

If n=1 then Writeln ('Дурак.');

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

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

Program PcHelpForum;
Var
n:char;
Begin
write ('Вы любите сайт pchelpforum.ru? Y/N');
read (n);
If n=Y then Writeln ('Ну и зря, там круто');
If n=N then Writeln ('Я его тоже люблю.');
End.

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

n=N

[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,

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
for j:=1to 100 do begin
writeln('Идёт загрузка трояна...',j,'%');

end;

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

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

[Qiker]

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
for j:=1to 100 do begin
writeln('Идёт загрузка трояна...',j,'%');

end;

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

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