3039682200

C:\FPC\2.24\bin\i386-win32\fp.exe

File Edit Śearch Run Compile Debug Tools Óptions Mindow Help

for b:=l to podana do begin a:=a+b; end;

writeln<'Suną liczb od 1 do',podana,' wynosi',a>; end;

function kwadraty<podana:integer):integer; var

wynik: integer; begin

for b:=l to podana do begin

a:=a+<b*b>; end;

writeln<'suną kwadratu liczb od 1 do',podana,'wynosi',a>; end;

function sześciany <podana:integer>:integer; begin

for b:=1 to podana do begin

a:=a+<b*b*b>; writeln<a>; end;

writelnC'suma sześcianu liczb',podana,'wynosi',a>; end;

begin

writeln<'podaj liczbę a wyświetlę sumę, kwadrat sześciany'>; readln<podana>; suma<podana>; kwadraty<podana>; szesciany<podana>; readln; end.