[artem8021]

Помогите пожалуйста с перевод программы с Pascal на Delphi
Заданы действительные числа a, b, c, d. Найти площадь пятиугольника, изображенного на рисунке ниже. Определить процедуру вычисления площади треугольника по трем сторонам.

Код:

uses crt;
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);
end.

Админ: Пользуемся тегами для оформления кода!