Попроси решение у одноклассников и просто поменяй название переменных. Я сам так всегда делаю
Решение
Program n1;
Procedure qwe(x1,x2,y1,y2:integer);
var a,b,c,p:real;
begin
a:= x2-x1;
b:= y2-y1;
c:= sqrt((a*a)+(b*b));
p:=(a+b+c)/2;
writeln(sqrt(p*(p-a)*(p-b)*(p-c)));
end;
var i,o,p,l:integer;
read(i,o,p,l);
//Вводить в формате x1,x2,y1,y2
qwe(i,o,p,l);
end.
Попроси решение у одноклассников и просто поменяй название переменных. Я сам так всегда делаю
Решение
Program n1;
Procedure qwe(x1,x2,y1,y2:integer);
var a,b,c,p:real;
begin
a:= x2-x1;
b:= y2-y1;
c:= sqrt((a*a)+(b*b));
p:=(a+b+c)/2;
writeln(sqrt(p*(p-a)*(p-b)*(p-c)));
end;
var i,o,p,l:integer;
begin
read(i,o,p,l);
//Вводить в формате x1,x2,y1,y2
qwe(i,o,p,l);
end.