diziler1

PROGRAM diziler1;

VAR i:integer;

dizi : ARRAY [0..7] of integer;

BEGIN

for i:=0 to 7 do

begin

dizi[i] := i*10;

end;

WRITELN (dizi[0]:6);
WRITELN (dizi[1]:6);
WRITELN (dizi[2]:6);
WRITELN (dizi[3]:6);
WRITELN (dizi[4]:6);
WRITELN (dizi[5]:6);
WRITELN (dizi[6]:6);
WRITELN (dizi[7]:6);

READLN;

END.