Напечатать столбиком : a) все целые числа от 10 до 35; b) квадраты все целых чисел от 5 до n; c) третьи степени всех целых чисел от а до 50; d) все целые числа от а до b. Использовать оператор While

а) program zz1;

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

begin

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

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

begin

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

c:=c + 1;

end;

end.

b) program zz1;

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

begin

read (n);

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

while c < = n 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.