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<br>begin
if (a>=100) and (a<=999) then writeln(a);<br>if (b>=100) and (b<=999) then writeln(b);<br>if (a>=10) and (a<=99) then writeln(' ',a);<br>if (b>=10) and (b<=99) then writeln(' ',b);<br>if (a>=0) and (a<=9) then writeln(' ',' ',a);<br>if (b>=0) and (b<=9) then writeln(' ',' ',b);<br>end
else
Writeln('Нужно ввести числа от 0 до 999');
end.