Дано семизначное число. Определить, является ли оно симметричным.

Program n1;

Var c, i: integer;

a: array[0 ... 6] of integer;

begin

Writeln ('Vvedite chislo') ;

Readln (c) ;

For i:=6 downto 0 do

begin

a[i]:=c mod 10;

c:=c div 10;

write (a[i]:3) ;

end;

If (a[0]=a[6]) and (a[1]=a[5]) and (a[2]=a[4]) then writeln ('Simmetrichnoe')

else writeln ('Nesimmetrichnoe') ;

readln

end.