Покалцйста помогите с информатикой 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