Решите пожалуйста очень срочно необходимо написать

Задание 1

var r:real;  

begin  

writeln('Введите радиус');  

read(r);  

writeln('Длина окружности = ',2*pi*r);  

writeln('Площадь круга = ',pi*sqr(r));  

end.

Задание 2

Program Rastoyanie;

var x1,x2,y1,y2,S:real;

begin

write('введите координаты');

readln(x1,x2,y1,y2);

S:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln(s);

readln;

end.

Задание 3

uses crt;

var

   d, a, b, c, x1, x2: real;

begin

   writeln('Введите a, b, c');

   readln(a, b, c);

   d := b * b - 4 * a * c;

   if d gt; 0 then

   begin

       x1 := (-b + sqrt(d)) / (2 * a);

       x2 := (-b - sqrt(d)) / (2 * a);

       writeln('x1 = ', x1:2:2);

       writeln('x2 = ', x2:2:2);

   end

   else if d = 0 then

   begin

       x1 := -b / (2 * a);

       writeln('x = ', x1:2:2);

   end

   else

       writeln('Нет реальных корней');

end.

пока что только это