Помогите! С клавиатуры вводятся 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.