var a,b:integer;
s:real;
begin
writeln('введите а и b');
read(a,b);
s:=a*b/2;
write('s=',s);
end.
Объяснение:
