Ввести двузначное число и пусть программа запишет его наоборот.
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.