S=1/2*H*L
program_z1;
uses
crt;
var S,L,H; real;
begin
Clrscr;
write(`L= `); read(L);
write(`H=`); read(H);
S:=1/2*H*L;
write(`S=`,S);
End.
S=1/2*H*L
program_z1;
uses
crt;
var S,L,H; real;
begin
Clrscr;
write(`L= `); read(L);
write(`H=`); read(H);
S:=1/2*H*L;
write(`S=`,S);
End.