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.