Решебник

Program perev;
var a,v,l,s,rd,red:integer;
begin
cls;
read(a);
v:=a mod 10;
l:=a div 10;
rd:=l mod 10;
red:=l div 10;
write(v,rd,red);
end.