allangarsk Var a,c:integer;begin
writeln('Введите число а');
readln(a);c:= a div 100;
writeln('c = ', c);
a:= a mod 100 + 2*(a mod 10);
writeln('a = ', a);
a:= 10 * a + c;writeln('a = ', a);
end.
{Введите число а
937 c = 9
a = 51
a = 519}

mnv1962 Например, число 1950
Тогда
с=19
a=50+2*0=50
a=50*10+19=519
Ответ 1950