Ответ:

Program_z1;

var a,b,s:integer;

begin

writeln('Введите стороны прямоугольника');

read(a,b);

s:=a*b;

wrireln('Площадь треугольника равна', s);

end.

Объяснение: