TUGAS KOMPUTASI

Program sumbprogram;
Uses wincrt;

Var
i,x,jml1,jml2,jml3 : longint;

procedure garis;
Begin
writeln('------------------------');
end;

Begin
writeln('DATA HITUNGAN X');
Jml1:=0;
jml2:=0;
jml3:=0;

garis;
writeln('No X X^2 X^3 ');
garis;

for i:=1 to 10 do
begin
X:=5*I;
writeln(I:3,X:6,X*X:10,X*X*X:12);
jml1:=jml1+X ;
jml2:=jml2+X*X ;
jml3:=jml3+X*X*X;

end;

garis;
writeln('JML',jml1:6,jml2:10,jml3:12);
garis;

end.