[YAS]

Заголовок проги допишешь сам. Я приведу только тело.

begin
writeln ('задайте первое число');
readln(chislo1);
writeln ('задайте второе число')
readln (chislo2);
dlina1:= length (chislo1);
dlina2:= length (chislo2);
dlina:= abs(dlina1-dlina2);
strdop := '';
for i := 1 to dlina do
strdop := concat('0', strdop);
if dlina1 > dlina2 then
chislo2 := concat(strdop, chislo2)
else
chislo1 := concat(strdop, chislo1);
writeln ('вывод первого числа: '); writeln (chislo1);
writeln ('вывод второго числа: '); writeln (chislo2);
end.