Совсем недавно мы писали программу, которая загадывала шуточные загадки, но вот проверять правильность ответа она не умела… Теперь, когда мы знаем как сравнивать строки, мы можем написать программу намного интереснее!

Напиши программу, которая будет загадывать пользователю загадку и сохранять его ответ, а потом сравнивать ответ пользователя с правильным ответом.

Если они совпадают, то программа выведет: “ответ правильный!”

Если же строки не совпали, то программа выведет в консоль правильный ответ на загадку.

1)котят 7

2)рыжих котят 5

3)зелоноглазых котят 3

4)котят рыжих и зеленоглазых 3

5)котят рыжих или зеленоглазых 3

6)рыжих и не зеленоглазых котят 3

7)не рыжих и не зеленоглазых 1

а) 54.06  числовой

b) “abc”символьный

c) ложь логический

d) -1.3 числовой

e) “123” символьный

f) 15/06/96  дата

в в) так как там идет в раза больше тоесть 3 в 2 рказа меньше чем 6, и потом они идут в обратном порядке 3 цифры

program cikl;

var a,b,c,i,j,k: integer;

begin

writeln('bbedute a,b,c');

readln(a,b,c);

i: =a;

j: =b;

k: =c;

a: =j;

b: =k;

c: =i;

writeln('a=',a,'b=',b,'c=',c);

readln

end.