1)Составить алгоритм для определения большего из трех чисел.2)Даны радиус и сторона квадрата. С помощью алгоритма определите, у какой фигуры площадь больше3)Составить алгоритм для решения квадратного уравнения ПОМОГИТЕ

1.
var a,b,c:longint;
begin
read(a,b,c);
if (a>=b) and (a>=c) then writeln(a) else
if (b>=a) and (b>=c) then writeln(b) else writeln(c);
end.
2.
var r,a:longint;
begin
read(r,a);
if pi*r*r>a*a then
writeln(Круг) else
if pi*r*r=a*a then
writeln(Равны) else
writeln(Квадрат);
end.
3.
var a,b,c,D:real;
begin
read(a,b,c);
D:=b*b-4*a*c;
writeln((-1*b+sqrt(D))/2*a);
writeln((-1*b-sqrt(D))/2*a);
end.