программа

[Kirill MC]

с клавиатуры вводится число запишите его наоборот и умножьте на 3
помогите решить задачу плз!!!!!!!!
я вообще не вкурсе:confused :

[Mad_Cat]

var
x:integer;
x1:integer;
begin
readln(x);
x1:=0;
while x<>0 do begin
x1:=x1*10+x mod 10;
x:=x div 10;
end;
writeln(x1*3);
end.