Menggunakan Looping di dalam Array

program marless;
uses wincrt;
type larik=array[1..20] of integer;
var bil:larik;
i,n:byte;
kuad,akar:real;
ket,ket1,ket2:string;
lagi:char;

begin
lagi:='y';
repeat
begin
inc(n);
write ('Masukan bilangan bulat ke ',n,' ==> ');readln(bil[n]);
write('lagi<y/t>?');readln(lagi);
end
until (lagi<>'y');
writeln('----------------------------------------------------------------------');
writeln('No    Bilangan       Kuadrat      Akar       Pos/neg       gan/gen    ');
writeln('----------------------------------------------------------------------');
for i:=1 to n do
begin
     kuad :=sqr(bil[i]);
     if bil[i]<0 then ket :='imajiner' else akar:=sqrt (bil[i]);
     if bil[i]>0 then ket1:='positif' else if bil[i]<0 then ket1:='negatif' else ket1:='nol';
     if bil[i]=0 then ket2:='nol' else if (bil[i] mod 2 =0) then ket2:='genap' else ket2:='ganjil';
     write(i:2,'   ',bil[i]:4,'      ',kuad:6:0,'           ');
     if (bil[i]>=0) then write(akar:8:2) else write (ket);
     writeln('      ',ket1,'       ',ket2);
end;
writeln('---------------------------------------------------------------------');
writeln('TERIMAKASIH SUDAH MENCOBA');
end.

ARTIKEL TERKAIT PERLU DIBACA...!/LE'E MOS ARTIKEL NE'E: