Задача 1. Вывести на экран квадраты чисел от 11 до 27.

Задача 2. Найти произведение четных чисел в промежутке от 23 до 5.

Задача 3. Найти сумму двухзначных чисел кратных 7.

1) Var i:integer; Begin For i:=11 to 23 do Write (i*i,' '); End. 2) Var i, K:integer; Begin K:=1; For i:=5 to 23 do Begin if i mod 2 = 0 then K:=K*i; End; Write (K); End. 3) Var i, K:integer; Begin K:=0; For i:=10 to 99 do Begin If i mod 7 = 0 then K:=K+i; End; Write (K); End.