Покалцйста помогите с информатикой 4 и 5 задание

№4   var    x1,x2,x3,y1,y2,y3,a,b,c,p: real; begin   write ('Введите x1 = '); readln (x1);   write ('Введите y1 = '); readln (y1);   write ('Введите x2 = '); readln (x2);   write ('Введите y2 = '); readln (y2);   write ('Введите x3 = '); readln (x3);   write ('Введите y3 = '); readln (y3);   a:=sqrt(abs(x2-x1)*abs(x2-x1)+abs(y2-y1)*abs(y2-y1));   b:=sqrt(abs(x3-x2)*abs(x3-x2)+abs(y3-y2)*abs(y3-y2));   c:=sqrt(abs(x1-x3)*abs(x1-x3)+abs(y1-y3)*abs(y1-y3));   p:=a+b+c;   writeln ('Периметр = ',p:6:2); end. ----------------------------------------- Введите x1 = -1.51 Введите y1 = -8.65 Введите x2 = -5.4 Введите y2 = -3.92 Введите x3 = 0.47 Введите y3 = 9.11 Периметр =  38.29 №5 const pi=3.14; var r,l,s: real; begin   write ('Введите радиус r = ');   readln (r);   l:=2*pi*r;   s:=pi*r*r;   writeln ('Длина окружности l = ',l);   writeln ('Площадь круга S = ',s); end. ------------------------------------------ Введите радиус r = 5 Длина окружности l = 31.4 Площадь круга S = 78.5