Даны четыре точки a1(x1,y1), a2(x2,y2), a3(x3,y3), a4(x4,y4). определить, будет ли они вершинами параллелограмма. на паскале,

Beginvar x1, x2, x3, x4, y1, y2, y3, y4: double;   writeln('введите x1');   readln(x1);   writeln('введите x2');   readln(x2);   writeln('введите x3');   readln(x3);   writeln('введите x4');   readln(x4);     writeln('введите y1');   readln(y1);   writeln('введите y2');   readln(y2);   writeln('введите y3');   readln(y3);   writeln('введите y4');   readln(y4); if((y1-y4=y2-y3) and (x2-x1=x3-x4)) thenwriteln('abcd - параллелограмм')else writeln('abcd - не параллелограмм'); end.

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.