スペル?
K=0
FOR I=0 TO N
K=K+I
NEXT I

K=0
DO 10 I=0,N,1
K=K+I
10 CONTINUE

program sample;
var k, i : integer;
begin
k := 0;
for i := 1 to 10 do
begin
k := k + i;
end;
writeln(k);
end.