LATIHAN 1 PASCAL

program latihan1_program;
uses crt;

var
x:longint;
y:longint;
L:real;

begin
clrscr;
Writeln('TUGAS ALGORITMA PEMOGRAMAN 1');
writeln('NAMA : SAAF NUR RAHAYU');
writeln('NIM : 2410016');
writeln('PRODI: TK (TEKNIK KOMPUTER)');
writeln;
writeln;
writeln('MENGHITUNG LUAS SEGITIGA');

x:=30;
y:=10;
L:=0.5*(x*y);

write ('Luas=0.5*x*y');
writeln;
writeln('Luas=0.5*',x,'*y');
writeln('Luas=',L:3:0);

readln;
end.