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