задача Delphi.

[Kate23]

Дано натуральное число N <= 99. Дописать к нему цифру К в конец и начало.

[alex_fcsm]

самое простое

var n,k:integer;
      n1,k1:string;
read(n,k);
str(n,n1);
str(k,k1);
n1:=k1+n1+k1;
val(n1,n);

P.S. Неужели так сложно было создать тему сразу?

[Zer0]

В Delphi можно было бы использовать более современные методы (StrToInt)
Но можно решить без переводов из строки/в строку

var n,k:integer;
begin
readln(n,k);
if (n<10) then n:=(n+k*10)*10+k
else n:=(n+k*100)*10+k;
writeln(n);
end.