20-04-2014 11:01:55

3 уровень 15. Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом;

Var

x, y, s:real;

i, f:integer;

begin

f:=1;

for i:=1 to 4 do

begin

write ('Введите координаты точки: ') ;

readln (x, y) ;

if i=1 then

s:=sqrt (x*x+y*y)

else if ssqrt (x*x+y*y) then f:=0;

end;

if f=1 then

writeln ('Да, является ромбом')

else writeln ('Нет, не является ромбом') ;

end.