Ввести с клавиатуры 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.

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