дано натуральное трехзначное число

[19952907]

.Дано натуральное трехзначное число . Составьте программу, выводящую четырехзначное число, полученное приписыванием разряда единиц исходного числа к нему же слева (в разряд тысяч)

[Serge_Bliznykov]

разбирайтесь...

var N : longint;
begin
  repeat
    WriteLn('Введите трёхзначное число:');
    ReadLn(N);
    if (N<100) or (N>999) then 
       WriteLn('Тебе же сказано - трёхзначное число вводи!');
  until (N>=100) and (N<=999);

  {вот, собственно сама программа! 
     Одна строчка кода!}
  WriteLn('Новое число равно ', (N mod 10)*1000+N);
  Readln
end.