Помогите, пожалуйста в Паскале программу написать Дано двузначное число. Приписать к нему...

Question

Помогите, пожалуйста в Паскале программу написать Дано двузначное число. Приписать к нему цифру k в начало и конец. Например, если к числу 35 приписать цифру 1, то получим 1351.

Answer 1

var

 n, k, r: Integer;

begin

 Write ('Введите двузначное число: ');

 ReadLn (n);

 if (n < 10) or (n > 99) then begin

   Writeln ('Число не двузначное!');

   Exit;

 end;

 Write ('Введите приписываемую цифру от 1 до 9: ');

 ReadLn (k);

 if (n < 1) or (n > 9) then begin

   Writeln ('Ошибка ввода!');

   Exit;

 end;

 r := k * 1000 + n * 10 + k;

 Write ('Результат = ', r);

end.