{Даны три трёхзначных числа, заданные случайным образом.
Вывести на экран 3 числа, записанные цифрами наоборот}
uses crt;
var y1,y2,y3:integer;
procedure naob(x:integer; var z:integer);
begin
z:=(x mod 10)*100;
z:=z+(x div 10 mod 10)*10;
z:=z+(x div 100);
end;
begin
randomize;
y1:=random(900)+100;
y2:=random(900)+100;
y3:=random(900)+100;
writeln('Исходные числа: ',y1,' ',y2,' ',y3,' ');
naob(y1,y1);
naob(y2,y2);
naob(y3,y3);
writeln('Полученные числа ',y1,' ',y2,' ',y3,' ');
end.