program se;
var a,b,s : integer;
begin
writeln('Введите чему равны стороны треугольника: ');
readln(a,b);
s := a * b;
writeln('Площадь треугольника равна ', s)
end.
