Нужно было весь код копировать. Примерное решение во вложении.
<span>d)69
40 гбайт = 40960мбайт
40960/600 = 68,26666666666667 </span>
program z1;
var x1,x2,x3,y1,y2,y3:integer;
d1,d2,d3,s,p,p1:real;
begin
writeln ('Введите координаты первой вершины (x1 и y1) ');
readln (x1,y1);
writeln ('Введите координаты второй вершины (x2 и y2)');
readln (x2,y2);
writeln ('Введите координаты третей вершины (x3 и y3)');
readln (x3,y3);
d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d2:=sqrt(sqr(x2-x3)+sqr(y2-y3));
d3:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=d1+d2+d3;
p1:=p*0.5;
s:=sqrt((p1)*(p1-d1)*(p1-d2)*(p1-d3));
if (d1+d2<=d3) or (d1+d3<=d2) or (d2+d3<=d1) then writeln ('Такой треугольник не существует') else
writeln ('Периметр треугольника = ' , p , ' , площадь треугольника равна = ', s);
end.