Ввести с клавиатуры 2 числа в интервале от 0 до 999. вывести их на экран столбиком в виде, удобном для сложения или умножения. то есть первый разряд первого числа под первым разрядом второго числа, второй разряд – под вторым и т.д.

Решение во вложении

Program chisla;
uses crt;
var a,b : integer;
begin
Write('Введите два числа: ');
Read(a,b);
if (a>=0) and (a<=999) and (b>=0) and (b<=999) then
begin
if (a>=100) and (a<=999) then writeln(a);
if (b>=100) and (b<=999) then writeln(b);
if (a>=10) and (a<=99) then writeln(' ',a);
if (b>=10) and (b<=99) then writeln(' ',b);
if (a>=0) and (a<=9) then writeln(' ',' ',a);
if (b>=0) and (b<=9) then writeln(' ',' ',b);
end
else
Writeln('Нужно ввести числа от 0 до 999');
end.