составить таблицу истинности

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.

21,24,27,30,33,36,39,42,45,48

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.

богатырь около путевого камня: направо пойдёшь - коня потеряешь, налево пойдёшь - жизнь потеряешь, прямо пойдёшь - жену найдёшь

и.т.д.(иван царевич и серый волк, алеша попович)