Напишите функцию вычесляющею длину отрезка по координатам его концов с помощью этой функции напишите программу вычесляющую перим
Напишите функцию вычесляющею длину отрезка по координатам его концов с помощью этой функции напишите программу вычесляющую периметр треугольника по координатам его ершин
<span>var
a,b:integer;
procedure Poisk(a,b:integer);
begin
if a > b then
writeln('Меньшее число ', b);
if a=b then
writeln('Равны');
if a < b then
writeln('Меньшее число ', a);
end;
begin
writeln('Введите числа');
readln(a,b);
Poisk(a,b);
end.</span>