Var a,b:integer;
d:string;
begin
writeln('введите число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
<span>end.
</span>
<span>М: = 2*5 + 12/ (2 + 4) - 3*2
</span><span>М: = 10 + 12/ 6 - 6
</span>М: = 10 + 2 - 6
М: = 12 - 6
М: = 6