Contoh Program Pascal

uses
wincrt;
var
luasalas,tinggi,hasil :real;
begin
writeln('---------------');
writeln('rumus segi tiga');

writeln('---------------');
write('masukan luas alas? ');
readln(luasalas);
write(('masukan tinggi? ');
readln(tinggi);
hasil:=1/2*luasalas*tinggi;
writeln(maka hasilnya adalah= ',hasil);
end.