Створіть програму руху туриста до моря. На сцені з фоном Beach malibu (папка
Природа) об'єкт Avery Walking, що міститься в папці Люди, з точки сцени з
координатами х = -200, у=-140 переміщується в точку сцени з координатами х = -120, у
= 60 і говорить: «Ура! Море!».​

Program odin; - название программы
var i,n,k,j : integer; - введение переменных i,n,k,j типа integer (целое число)
begin - начало программы
i:=1; - присвоить переменной i значение 1
For i:=2 to n do - цикл в котором переменной i присваиваются значения от 2 до n ( i = 2, 3, 5 ... n)
begin - начало цикла for
k:=0; - k присваивается 0
For j:=2 to i-1 do цикл в котором переменной j присваиваются значения от 2 до i-1
if i mod j = 0 then k:=1; - если остаток от деления переменной i yf переменную j равно 0, то присвоить переменной k значение 0
if (k=0) and (n mod i = 0) then writeln(i); - если переменная k имеет значение 0 и остаток от деления переменной n на переменную i равно 0, то вывести на экран значение переменной i
end; - конец цикла for
end. - конец программы 

Const
   N = 7; // количество наименований товаров
Var
   A:array[1..N,1..3] of integer;
   i,k,S:integer;
Begin
For i:= 1 to N do
    Read(A[i,1],A[i,2],A[i,3]);
k:=0;
For i:= N downto 1 do
    if A[i,2] = 0 then k:=i;
if k > 0 then
   Begin
   Write('00 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 0 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 1 then k:=i;
if k > 0 then
   Begin
   Write('01 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 1 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 10 then k:=i;
if k > 0 then
   Begin
   Write('10 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 10 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 11 then k:=i;
if k > 0 then
   Begin
   Write('11 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 11 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
End.

Пример работы программы:

17 1 2
3 0 5
7 1 4
8 11 9
95 0 3
31 10 44
5 1 6
00 - 15+285=300
01 - 34+28+30=92
10 - 1364
11 - 72