Cod sursa(job #1599017)
| Utilizator |  rusu marina marinarusu |
Data | 13 februarie 2016 15:39:59 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
Program cadouri;
var l,t,y,n,x,i:longint;
f1,f2:text;
begin
assign(f1,'i.in');
assign(f2,'i.out');
reset(f1);
rewrite(f2);
readln(f1,t);
y:=0;
x:=1;
for i:=1 to t do
begin
readln(f1,n);
for l:=1 to n do
begin
x:=i*n;
end;
y:=x+y;
end;
writeln(f2,y);
close(f1);
close(f2);
end.
