молодец как соленный огурец. не ладно до встречи (или следущего запуска программы.)

[korenok]

program Game;

  var a:string;

      b:integer;

      c:integer;
      
      d:integer;
      
      e:integer;
     

begin
writeln('Привет ');

writeln('Скажи мне своё имя: ');

write('Меня зовут: ');

read(a);

writeln('Ну здравствуй, ', a,'!');

writeln('А сколько тебе лет :)?');

write('Мне: ');

read(b);

writeln('понятно, а мне всего всего ничего, пару минут отроду.');

writeln('а я знаю одну загадку');

writeln('Хочешь загадаю? :)');

write('Ответ 1 - Да | Ответ 2 - Нет: ');

read(c);

if (c>1) and (c<=2) then writeln('Что?! Ты меня обидел! Пока!!!')

else

writeln('ок, ща');

writeln('зимой и летом одним цветом, что это?');

write('Ответ 1 - огурец | Ответ 2 - Ёлка ');

read (c);

if (c>1) and (c<=2) then writeln('неправильно это Ёлка, ведь огурец может испортится и почернеть. Ну ладно мне пора спать пока');



writeln('молодец как соленный огурец. не ладно до встречи (или следущего запуска программы.)');

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[korenok]

тут что то не так но я не как не могу понять что?

[Serge_Bliznykov]

в else у Вас только один оператор (writeln('ок, ща')
если нужно, чтобы остальные операторы выполнялись тоже в ветке else, то нужно использовать операторные скобки begin .. end

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

if (c>1) and (c<=2)

к чему это условие? достаточно просто

if (c=1) then

или

if (c=2) then

ну и рекомендую изучить, чем отличает оператор Read() от оператора ReadLn()