contoh program array menggunakan turbo pascal

program array2;
uses wincrt;
var
    NM:array[1..10] of string[20];
    JP:array[1..10] of real;
    H,tothrg:array[1..10]of real;
    i,j: integer;
   
begin
clrscr;
write('Masukan Jumlah Data Masakan :'); readln(j);
for i:=1 to j do
    begin
    writeln('Data Ke-',i);
    write('Nama Masakan :'); readln(NM[i]);
    write('Jumlah Masakan :'); readln(jp[i]);
    if NM[i] = 'A' then
     H[i]:= 10000
    else if NM[i] ='B' then
     H[i]:=  8000
    else
     H[i]:= 6000;
     writeln('Nama Masakan = ',NM[i],' Harga = ',H[i]:20:2);
    readln;
tothrg[i]:=H[i]*JP[i];
    writeln('Nama Masakan= ',NM[i],'Total Harga = ',tothrg[i]:20:2);
    end;
end.