Информатика

Христена

19 ноября, 05:49

Паскаль Нужно было написать такую программу: 1) Площадь треугольника корень кв. из p (p-a) (p-b) (p-c), где p=a+b+c/2

Написал программу следующим образом:

program ABD;

var a, b, c;

integer;

p:real;

writeln ('a, b, c') ;

readln (bcd) ;

p: = (a+b+c) ;

writeln ('p=', p) ;

readln;

end.

Почему не читает? И еще помогите a=b+c, если a>2, то d=4, иначе d=5. (условный оператор if)

programm ABC;

var b, c;

integer;