[lmikle]

Ну, если тупо перевести, то как-то так:

Код:

program Moya_fignya;

{$APPTYPE CONSOLE}

procedure Plosh(a,b,c:real;var s:real);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;

var a,b,c,d,s1,s2,s3,s:real;

begin
writeln('Введите 4 стороны пятиугольника:');
repeat
write('1<a<3 a=');
read(a);
until(a>1)and(a<3);
repeat
write('0.5<b<4.5 b=');
read(b);
until(a>0.5)and(a<4.5);
repeat
writeln('c,d c+d>2.5');
read(c,d);
until c+d>2.5;
Plosh(1,a,2,s1);
Plosh(2,b,2.5,s2);
Plosh(2.5,c,d,s3);
s:=s1+s2+s3;
write('S=',s:0:1);

readln; // что бы окно сразу не закрывалось.
end.