Question

Найти все целые трехзначные числа,которые меньше заданного числа.
(Pascal)

Answer 1

var a,b:integer;
begin
writeln('введите число');
readln(a);
for b:=100 to 999 do
begin
if b<a then writeln(b);
end;
end.