Cod sursa(job #75832)

Utilizator danyellaFlorescu Maria Daniela danyella Data 6 august 2007 11:58:14
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.14 kb
Raporteaza aceasta sursa 
program suma(output);
var i,s:integer;
begin
     writeln;
     i:=20;
     s:=i*(i+1) div 2;
     writeln('suma=',s);
     readln;
end.