Teguhsulthon
program Menghitung_luas;
uses wincrt;
var
A,B,C:integer;
begin
Write('masukkan alas'); readln(A);
Write('Masukkan tinngi'); readln(B);
C:=(A*B div 2);
write('hasilnya Adalah:',C);
writeln;
end.
Teguhsulthon
sorry pakek yang ini aja,biar lebih rapi
program Menghitung_luas;
uses wincrt;
var
A,B,C:integer;
begin
Write('masukkan alas :'); readln(A);
Write('Masukkan tinngi :'); readln(B);
C:=A*(B div 2);
write('hasilnya Adalah :',C);
writeln;
end.
A,B,C:integer;
begin
Write('masukkan alas'); readln(A);
Write('Masukkan tinngi'); readln(B);
C:=1 div 2(A*B);
writeln;
end.