Помогите! Срочно надо! Информатика 9 класс
Линейна структура:
1) Найти значение выражения y=ax^2+bx+c
2) Вычислить площади треугольника, прямоугольника, ромба.
3) Найти среднее арифметическое трёх чисел.

1) program p1;vary,a,b,c,x:real;beginreadln(a,b,c,x);y:=((a*sqr(x)) + (b*x) + c);writeln(y);end.3)program p3;vara,b,c:real;beginreadln(a,b,c);writeln((a+b+c)/3);end.Второй номер.Для прямоугольника:program p2;vara,b:real;beginreadln(a,b);writeln(a*b);end.Для треугольника (по формуле Герона):program p2;vara,b,c,p,s:real;beginreadln(a,b,c);p:=(a+b+c)/2;s:=sqrt(p * (p-a) * (p-b) * (p-c));writeln(s);end.Насчет ромба не знаю.