Помогите решить задачи в паскале. 1)Заданы радиус R круга и сторона квадрата А. Определить какая фигура имеет большую площадь. 2)Найти сумму корней квадратного уравнения. Если эта сумма положительна и кратна трем, то увеличить коэффициенты а и b в 0,5 раза. Иначе проверить кратна ли данная сумма произведению коэффициентов этого уравнения. Если корней нет, то вывести соответствующее сообщение. С блок схемамами.
1) 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) не знаю