Задача 1:
var a,r: double;
begin
writeln('Введите сторону квадрата a');
readln(a);
writeln('Введите радиус круга r');
readln(r);
writeln('Площадь фигуры: ',a*a-Pi*r*r);
end.
Задача 2:
var a, b, c, D, x1, x2: real;
begin
writeln('Введите A, B, C');
readln(a,b,c);
D:=b*b-4*a*c;
if D>=0 then
begin
if (sqrt(D)=0) then
begin
x1:=-b/(2*a);
write('Один корень ',x1:0:2);
end
else
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);
end
end
else write('Корней нет');
end.
