Program alex_10;
uses wincrt;
var
taban,yukseklik:integer;
alan:real;
begin
clrscr;
writeln ('*alan hesabı programına hoş geldiniz*',' coded by Alex_10');
writeln('tabanı griniz');
readln(taban);
writeln('yuksekligi giriniz');
readln(yukseklik);
alan:=taban*yukseklik/2;
writeln('Üçgenin Alanı= ',alan:4:2);
end.