1) c клавиатуры вводится 4-значное число вывести число записанное теми же цифрами в обратном порядке 2)составте программу построения квадратов со сторонаи 1,3,5,7,9,11

1)
var 
a:array [1..4] of char;  i:integer;
begin   
for i:=1 to 4 do   
begin   
  read(a[i]);   
end;   
for i:=4 downto 1 do   
begin   
  write(a[i]);   
end;
end.