По каналу один за другим идут теплоходы «обь» и «восток». навстречу идут один за другим теплоходы «мир» и «енисей». канал такой ширины, что два теплохода в нём разойтись не могут. но с одной стороны канал имеет расширение, в котором может поместиться один теплоход. как можно разойтись и продолжить свой путь?

uses graphabc;  

var  

p:array[0..3]of point, t:integer;  

procedure lines;  

begin  

  line(100,100,300,300);  

  line(100,300,300,100);  

  line(200,100,200,300);  

  line(100,200,300,200);  

end;  

begin  

p[0].x := 150; p[0].y := 200;  

p[1].x := 200; p[1].y := 250;  

p[2].x := 250; p[2].y := 200;  

p[3].x := 200; p[3].y := 150;  

SetBrushColor(clblack);  

readln(t);  

if t < 0 then  

begin  

  Polygon(p[0],p[1],p[2],p[3]);  

  lines;  

end;  

if t > 0 then  

begin  

  circle(200,200,50);  

  lines;  

end;  

end.

1,2,4: / pascalabc.net 3.0, сборка 1066 var   n: biginteger; begin   var s: =readlnstring('введите натуральное число: ');   if biginteger.tryparse(s,n) then begin       var c: =readchar('введите проверяемую цифру: ');       writeln(c, ' встречается в ',s,' ',s.where(x-> x=c).count,' раз');       writeln('максимальная цифра числа: ',s.where(x-> x=s.max).distinct);       writeln('перевертыш: ',s.inverse);       end   else writeln('ошибка при вводе числа') end. тестовое решение: введите натуральное число:   355678679650768680078676985643546809678546263435 введите проверяемую цифру:   4 4 встречается в 355678679650768680078676985643546809678546263435 4 раз максимальная цифра числа: [9] перевертыш: 534362645876908645346589676870086867056976876553 3 // pascalabc.net 3.0, сборка 1066 begin   var m: int64: =-1;   var n: int64: =0;   writeln('принимаются неотрицательные целые числа');   while (n> =0) and (m< n) do begin       m: =n;       n: =readinteger('введите число: ')   end;   if m> =n then writeln('последовательность невозрастающая')   else writeln('последовательность возрастающая') end. тестовое решение: принимаются неотрицательные целые числа введите число:   4 введите число:   6 введите число:   12 введите число:   83 введите число:   170 введите число:   214 введите число:   170 последовательность невозрастающая