Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти это число

Program DZ6;
var x,a,b,c:integer;
z:integer;
begin
Writeln('Введите трёхзначное число a');
readln(x);
a:=x div 10;
b:=x mod 10;
c:=b*100+a;
z:='0'+a;
If (b=0) then writeln ('Перестановленное местами =',z)
else Writeln ('Перестановленное местами =',c);
end.

  Read(x);
  z:=x mod 100 * 10 + x div 100;
  if z<100 then Write(0);
  if z<10 then Write(0);
  Write(z);

repeat Write('Число [100..999]: '); Read(x) until (x>=100) and (x<1000);

program DZ6;
var x, a, b, c: integer;
    z: integer;
begin
  repeat
    Write('Число [100..999]: ');
    Read(x);
  until (x >= 100) and (x < 1000);
  z := x mod 100 * 10 + x div 100;
  if z < 100 then Write(0);
  if z < 10 then Write(0);
  writeln('Перестановленное местами =', z)
end.

  Write('Перестановленное местами = ');
  if z < 100 then Write(0);
  if z < 10 then Write(0);
  WriteLn(z);

  WriteLn('Перестановленное местами = ',z div 100,z div 10 mod 10,z mod 10);

var x: Integer;
begin
  repeat Write('Число [100..999]: '); Read(x); until (x >= 100) and (x < 1000);
  WriteLn('Перестановка = ', x mod 10, x div 10 mod 10, x div 100);
end.

var x, z: Integer;

var x, z: Integer;
begin
  repeat Write('Число [100..999]: '); Read(x);
  until (x >= 100) and (x < 1000);
  z := x mod 100 * 10 + x div 100;
  Write('Перестановка = ');
  if z < 100 then Write(0);
  if z < 10 then Write(0);
  WriteLn(z);
end.

var x: Integer;
begin
  repeat Write('Число [100..999]: '); Read(x); 
  until (x >= 100) and (x < 1000);
  WriteLn('Перестановка = ', x mod 10, x div 10 mod 10, x div 100);
end.