program Task;
var
a, b, c: integer;
begin
writeln('Введите три числа:');
readln(a, b, c);

// Проверка на четность
writeln('Четные числа:');
if a mod 2 = 0 then writeln(a);
if b mod 2 = 0 then writeln(b);
if c mod 2 = 0 then writeln(c);

// Проверка на кратность 3
writeln('Числа кратные 3:');
if a mod 3 = 0 then writeln(a);
if b mod 3 = 0 then writeln(b);
if c mod 3 = 0 then writeln(c);

// Проверка на кратность 5
writeln('Числа кратные 5:');
if a mod 5 = 0 then writeln(a);
if b mod 5 = 0 then writeln(b);
if c mod 5 = 0 then writeln(c);
end.