Напечатать столбиком:

a) все целые числа от 10 до 35;

b) квадраты все целых чисел от 5 до n;

c) третьи степени всех целых чисел от а до 50;

d) все целые числа от а до b.

Использовать оператор While

Uses Crt;

const a=0;

b=10;

n=15;

var i: longint;

Rez: longint;

begin

ClrScr;

WriteLn ('Task 1:') ;

for i:=10 to 35 do

Writeln (i:3) ;

Delay (2000) ;

WriteLn ('Task 2:') ;

for i:=5 to n do

Writeln (i*i:5) ;

Delay (2000) ;

WriteLn ('Task 3:') ;

for i:=a to 50 do

begin

Rez:=i*i*i;

Writeln (Rez:7) ;

end;

Delay (2000) ;

WriteLn ('Task 4:') ;

for i:=a to b do

Writeln (i:3) ;

ReadLn;

end.