program sumatoria;

program sumatoria;
uses
crt;
var
suma,contador:integer;
begin
clrscr;
suma:=0;
for contador:= 5 to 20 do
begin
suma:=suma+contador;
writeln(suma,',');
end;
writeln('suma:',suma);
readkey;
end.