var number,number1,number2 :integer;
begin
writeln('Напишите пятизначное число.');
readln(number);
if (number>10000) and (number<100000) then
begin
number1:=number div 1000;
number1:=number1 mod 10;
number2:=number mod 10;
if number1=number2 then
begin
writeln(number1,'(вторая) и ',number2,'(последняя) цифры одинаковы.');
end
else
writeln(number1,'(втроая) и ',number2,'(последняя) цифры разные.');
end
else
writeln('Число должно быть пятизначным!');
end.