Напечатать "столбиком": а) все целые числа от 20 до 35; б) квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b > (или равно) 10); в) третьи степени всех целых чисел от a до 50 (значение а вводится с клавиатуры; а (или равно) а).

а) program zz1;

var c:integer; / / задаем переменную целого типа

begin

c:=20; / / задаем начальное значение

while c < = 35 do / / организуем цикл, пока переменная не достигнет последнего значения

begin

writeln (c); / / выводим ответ

c:=c + 1;

end;

end.

b) program zz1;

var c, b:integer; / / задаем переменные целого типа

begin

read (b);

c:=10; / / задаем начальное значение

while c < = b do / / организуем цикл, пока переменная не достигнет последнего значения

begin

writeln (c*c); / / выводим ответ

c:=c + 1;

end;

end.

c) program zz1;

var a:integer; / / задаем переменную целого типа

begin

read (a);

while a < = 50 do / / организуем цикл, пока переменная не достигнет последнего значения

begin

writeln (a*a*a); / / выводим ответ

a:=a + 1;

end;

end.

d) program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

read (a, b);

while a < = b do / / организуем цикл, пока переменная не достигнет последнего значения

begin

writeln (a); / / выводим ответ

a:=a + 1;

end;

end.