Ответ:
program HelloWorld;
var x1, y1, x2, y2, s: real;
begin
writeln('Введите x1 и y1: ');
readln(x1, y1);
writeln('Введите x2 и y2: ');
readln(x2, y2);
writeln;
s:= sqrt((x2-x1)+(y2-y1));
writeln('Площадь: ', s);
readln
end.
Объяснение:
Ввод каждого числа отдельно