Ввести двузначное число и пусть программа запишет его наоборот.

Program chislo;
var w,f,k,s:integer;
begin
writeln('Введите число');
Readln(w);
f:= w mod 10;
k:= w div 10;
s:= f*10+k;
writeln(s);
end.