в паскале написать программу которая будет переворачивать число!(например:16 перевернет и...

Question

в паскале написать программу которая будет переворачивать число!(например:16 перевернет и будет 61)пожалуйста очень нужно!срочно!

Answer 1

Var s1,s2:string;
i:integer;
begin
readln(s1);
s2:=s1;
for i:=1 to length(s1) div 2 do
begins1[i]:=s2[length(s1)+1-i];
s1[length(s1)+1-i]:=s2[i];
end;
writeln(s1);
end.