How do I write a pascal program that totals the squares of the first positive integers?

Answer 1

Program FirstNIntegers (input,output);

var N : integer;

var iLoop : integer;

var iSum : integer;

var iSumSqr : integer;

Begin

N:=-1;

while (N<=0) do

begin

write(' Please Input the POSTIIVE value for N :>');

readln(N);

end;

iSum:=0;

iSumSqr:=0;

for iLoop:= 1 to N do

begin

iSum := iSum + iLoop;

iSumSqr := iSumSqr + iLoop*iLoop;

end;

writeln(' N = ',N);

writeln(' The sum of 1+2+3+...+N = ',iSum);

writeln(' The sum of 1+4+9+...+N^2 = ',iSumSqr);

End.