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

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.