1. Составить программу, распечатывающую все трехзначные числа, у которых цифры расположены в порядке возрастания.
2. Найти произведение всех нечетных чисел, вводимых с клавиатуры. Признак окончания ввода цифра 0.
3. Вывести все квадраты натуральных чисел, не превосходящие данного числа N.

Var a,b,c:byte;BeginFor a:= 1 to 9 do    For b:= a+1 to 9 do         For c:= b+1 to 9 do            Write(a,b,c,' ')End.Var   P:real;   A:integer;BeginP:=1;RepeatRead(A);if A mod 2 <> 0 then P:=P*A;Until A = 0;WriteLn('P = ',P)End.Var   N:integer;BeginWrite('N = ');ReadLn(N);For N:= 1 to N do    Write(N*N,' ')End.