Program ucgenin_alani;
uses wincrt;
var
taban,yukseklik:integer;
alan:real;
begin
clrscr;
writeln ('*alan hesabi programina hos geldiniz*');
writeln('tabani griniz');
readln(taban);
writeln('yuksekligi giriniz');
readln(yukseklik);
alan:=taban*yukseklik/2;
writeln('Üçgenin Alani= ',alan:4:2);
end.