rumus program pascal algoritma

program menghitung_luas_segitiga
uses crt;
var A,T,LUAS:INTEGER;
begin
clrscr;
write('masukan nilai alas     :');
readln(A);
write('masukan nilai tinggi   :');
readln(T);

luas:=A*T div 2;
write('luas segitiga adalah   :',luas);
readln;
end.

Program menghitung_luas_lingkaran;

Uses crt;

Luas:real;

Const phi=3,14

Begin

Clrscr;

Write(‘masukan jari-jari lingkaran   :’);

Readln®;

Luas:=phi*(r*r);

Write(‘luas lingkaran adalah  :’,luas:0:0);

Readln;

End.

Program array;

Uses crt;

Var x :array [1..100] of integer;

N,I :integer

Begin

                Writeln(‘program array’);

Writeln(‘===========’);

Writeln;

Write(‘masukan jumlah data : ‘);

Readln(n);

For I :1 to ndo

Readln(x[i]);

Writeln;

Write(‘data yang telah di masukan:’);