напишите программку которая запрашивает трёхзначное число получает из него перевёрнутое число

1 задачка

program proga;

var st,st2:string;

i:Integer;

begin

writeln('Введите число');

readln(st);

for i:=1 to length(st) do begin

st2:=st[i];

write(st2,' ');

end;

end.

2 задача

program proga2;

var st,st2:string;

i,a:Integer;

begin

writeln('Введите возраст');

readln(a);

if agt;120 then

writeln('Неправильные данные');

if a=1 then

writeln(a,' год');

if (agt;1) and (alt;5) then

writeln(a,' года');

if((a mod 10 = 1) and (a div 10 lt;gt; 0 or 11 )) then writeln(a,' год');

if (agt;=5) and (a mod 10 lt;gt; 2 or 3 or 4)and (a div 10 lt;gt; 10) then

writeln(a,' лет');

if (alt;=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');

if(agt;104) and (alt;110)then writeln(a,' лет');

end.