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.