Для кружка «Умелые руки» школа закупила 18 катушек ниток — белых, чёрных и цветных. Белых ниток было 6 катушек, чёрных — 7 катушек, а остальные нитки были цветными.

1) 6+7=13(кат.) чёрных и белых ниток вместе.
2)18-13=5(кат.) цветных ниток
Ответ: 5 катушек.

begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.

var r,d,l,s:real;
    c:char;
begin
repeat
clrscr;
writeln('Определить площадь круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Площадь=',pi*r*r:0:2);
    readln
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    readln
    end;
else exit;
end;
until not(c in ['1'..'3']);
end.