program ok;
var a,b,s:real;
begin
write ('a='); read(a);
write ('b='); read(b);
s:=ab;
write ('s=',s);
end.
Объяснение:
1)Просим ввести нужные данные.
2)Пишем формулу площади, по которой программа вычислит саму площадь.
3)Пишем ответ.
Я так понял, что по геометрической формуле. Если не по геометрической, то извини.
