4 Используя рисунок, выполните задания. 1. Создайте два подмножества множества девочек. Для всех
девочек, входящих в первое подмножество, истинно высказы-
вание: «Девочка носит брюки синего цвета, и на ее майке есть
красный цвет». Для всех девочек, входящих во второе подмно-
жество, истинно высказывание: «Девочка одета не в брюки или
имеет волосы желтого цвета».​

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

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

  readln(x1, y1);

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

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

* 60 / 16 =

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

если на 1 кв метр 200 грамм  то 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

расход обычно указывается на кв  метр : )