Склавиатуры вводятся 2 числа. составить алгоритм и программу сравнения этих чисел.

Var i, p: integer; m: array [1..4] of integer; begin  writeln('введите 4 числа: ');   for i : = 1 to 4 do  readln (m[i]);   p : = 0;   writeln('четные числа кратные 3: ');   for i : = 1 to 4   do  if (m[i] mod 2 = 0) and (m[i] mod 3   = 0) then  begin    write (m[i], ' ');     inc(p);   end;   if p = 0 then write('таковых нет');   end.