Cod sursa(job #526245)

Utilizator gicu_01porcescu gicu gicu_01 Data 27 ianuarie 2011 20:16:41
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var a,b:array[1..100]of int64;
    n:int64;

procedure putere;
var i:byte;k:int64;
begin
 k:=0;
 for i:=1 to 11 do a[i]:=k*5+1;
end;

procedure afis;
var i:byte;
begin
 for i:=1 to 11 do write(a[i],' ');
 writeln;
end;

begin
 putere;
 afis;
 readln;
end.