// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
if s=ReverseString(s) then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
<u><em>Тестовое решение</em></u>
Введите шестизначное натуральное число: 158851
Это палиндром
var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
Условия довольно чётко обозначены, так что ввод и вывод не оформлял.
Возраст<span> - период в физических. и психических. развитии человека</span>