FPS, Reikia programos

Man reikia kad kas nors issprestu sita programa:

1.Parašyti procedūrą, skaičiaus, įvesto klaviatūra kvadratui ir kubui rasti, šią procedūrą naudoti programoje.

program Noname0;

var n,k,v:integer;

begin

WriteLn('ivesk skaiciu');

Readln(n);

begin

k:=n*n;

v:=n*n*n;

end;

writeln('skaiciaus kvadratas ',k);

writeln('skaiciaus kubas ',v);

readln;

end.

program Noname0;

var n,k,v:integer;

begin

WriteLn('ivesk skaiciu');

Readln(n);

begin

k:=n*n;

v:=n*n*n;

end;

writeln('skaiciaus kvadratas ',k);

writeln('skaiciaus kubas ',v);

readln;

end.

Aciu

program Noname0;

var n,k,v:integer;

begin

WriteLn('ivesk skaiciu');

Readln(n);

begin

k:=n*n;

v:=n*n*n;

end;

writeln('skaiciaus kvadratas ',k);

writeln('skaiciaus kubas ',v);

readln;

end.

nebloga procedūra :D kažkas neskaitė užduoties, temos autoriau, įdėk šitą visą reikalą i procedūra..