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

Program n1; Var c,i: integer; a: array[0… 6] of integer; beginWriteln ('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'); readlnend.