var
a, h: real;
begin
readln(a, h);
writeln('S = ', 0.5 * a * h);
end.
-----------------------------------
var
a, b, m: real;
begin
readln(a, b);
m := (a > 3 ? a + b : a - b);
writeln('m = ', m);
end.
P.S. Учиться надо, а не тройки на сайтах выпрашивать...