Cod sursa(job #550432)

Utilizator darius96pop darius darius96 Data 9 martie 2011 15:40:03
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var k,i,j,p,t,a,b:integer;
begin
 assign(input,'cifra.in');reset(input);
 assign(output,'cifra.out');rewrite(output);
 readln(t);b:=0;
 for i:=1 to t do begin
 read(a);p:=0;
 for j:=1 to a do begin
        //for k:=1 to a do begin
        p:=j*j;
        end;
 b:=b+p;
 //end;
 write(b mod 10,' ');
 end;
 close(input);close(output);
end.