1) Вывести числа кратные (11) от 10 до 100 в Turbo pascal

2) С клавиатуры вводятся числа и последовательно перемножаются. Найти кол-во введённых чисел, когда их произведение превысит 1000. Прошу помощи.

1.

var i:integer;

begin

for i:=10 to 100 do

if i mod 11 = 0 then write (i,' ') ;

writeln;

end.

Результат:

11 22 33 44 55 66 77 88 99

2.

var a, k, p:integer;

begin

readln (a) ;

p:=1; k:=1;

while p<=1000 do

begin

p:=p*a;

k:=k+1;

readln (a) ;

end;

writeln ('k = ', k,' p = ', p) ;

end.

Пример:

5

8

4

9

7

k = 5 p = 1440