Придумайте и напишите простейший алгоритм из своей повседневной жизни в виде последовательности действий (6 команд)​

беру тарелку -> включаю воду > беру губку > тру тарелку до чистоты > вытираю тарелку > кладу тарелку на место

X1, y1 - начло отрезка x2, y2 - конец отрезка x0, y0 - координаты точки принадлежность которой мы будем проверять вывод будет true, если принадлежит, false, если не принадлежит. программа: program fff; const    _eps: real = 1e-3; var  x0, y0, x1, y1, x2, y2 : real;   tmp : boolean;     begin   readln(x1, y1);   readln(x2, y2);       readln(x0, y0);       tmp : = ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) < = _eps;   tmp : = tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) );       write(tmp);     end.

Const n=20;   var   a: array[1..n] of integer;   i,j,t,x,i1,i2: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(21);     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]< a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln;   write('x = '); readln(x);   i1: =1; i2: =n;   repeat   i: =(i1+i2) div 2;   if a[i]> x then i1: =(i1+i2) div 2+1;   if a[i]< x then i2: =(i1+i2) div 2-1;   until (a[i]=x)or(i1> i2);   if a[i]=x then    begin   writeln('искомый(ые) номер(а) элемента(ов): ');   while (i> 0)and(a[i]=x) do i: =i-1;   i: =i+1;   while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end;   end   else writeln('элемент не найден');   writeln; end. пример: исходный массив: 15 4 16 3 7 10 3 1 18 6 18 2 7 11 10 16 2 10 7 12  отсортированный массив: 18 18 16 16 15 12 11 10 10 10 7 7 7 6 4 3 3 2 2 1  x = 10 искомый(ые) номер(а) элемента(ов): 8 9 10