Паскаль выдает ошибку Встречено "read" а ожидалось ";" program PLОСНАD;
var А,В,С:real;
D:real;
Р:real;
S:real;
begin
writeln('Задайте стороны A,В,С:')
read(А,В,С);
Р:=(А + В + С)/2;
D:=A;
if D if D if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln{'ПЛОЩАДЬ:',S:2:1))
end

0lar3    3   12.01.2022 10:53    10