1)составьте программу для вычисления y=x, если x положительное число . 2)составьте программу для вычисления объема куба со сторонами от 5 до 20

Var
X:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Write('Y = ',X)
End.

Var
a:integer;
Begin
For a:= 5 to 20 do
    WriteLn('V(',a,') = ',a*a*a)
End.