1. Составить программу, распечатывающую все трехзначные числа, у которых цифры расположены в порядке возрастания.

2. Найти произведение всех нечетных чисел, вводимых с клавиатуры. Признак окончания ввода цифра 0.

3. Вывести все квадраты натуральных чисел, не превосходящие данного числа N.

Var a, b, c:byte;

Begin

For 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;

Begin

P:=1;

Repeat

Read (A) ;

if A mod 2 0 then P:=P*A;

Until A = 0;

WriteLn ('P = ', P)

End.

Var

N:integer;

Begin

Write ('N = ') ; ReadLn (N) ;

For N: = 1 to N do

Write (N*N,' ')

End.