написать программу в PASCAL ABC которая выполняет переворот пятизначного числа, вводимого с клавиатуры

var a,b,c: integer;

begin

write('Введите пятизначное число:');

readln(c);

if (c >= 10000) and (c <= 99999) then

begin

a:=c;

while a>0 do

begin

b:=b*10+a mod 10;

a:=a div 10

end;

writeln ('Вы ввели число: ',c);

write ('Переворот числа: ',b)

end

else

begin

writeln('Число не пятизначное');

writeln ('Вы ввели число: ',c)

end

end.

Или всё через if:

var a,b,c: integer;

begin

write('Введите пятизначное число:');

readln(c);

if (c >= 10000) and (c <= 99999) then

begin

a:=c;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

writeln ('Вы ввели число: ',c);

write ('Переворот числа: ',b)

end

else

begin

writeln('Число не пятизначное');

writeln ('Вы ввели число: ',c)

end

end.