Решить в паскале. 1)заданы радиус r круга и сторона квадрата а. определить какая фигура имеет большую площадь. 2)найти сумму корней квадратного уравнения. если эта сумма положительна и кратна трем, то увеличить коэффициенты а и b в 0,5 раза. иначе проверить кратна ли данная сумма произведению коэффициентов этого уравнения. если корней нет, то вывести соответствующее сообщение. с блок схемамами.
var
Sk, Ss, R, A : integer;
begin
read(R, A);
Sk := pi*R*R;
Ss := A*A;
If Sk > Ss then write ('Площадь круга больше')
else
If Ss > Sk then write ('Площадь квадрата больше')
else write ('Площади равны')
end.
2) не знаю