program twonumbers;
var
first, second: integer;
begin
read(first, second);
if ((first + second) mod 3 = 0) then
write(first * second)
else
begin
first := first * 2;
second := second * 2;
write(first, ' ', second);
end;
end.
Объяснение:
program twonumbers; // Название программы
var
first, second: integer; // Целочисленные переменные, хранящие вводимые с клавиатуры значения
begin // Начало программы
read(first, second); // Считываем 2 целых числа с клавиатуры
if ((first + second) mod 3 = 0) then // Если сумма чисел кратна 3
write(first * second) // Выводим их произведение
else // Иначе
begin // Начало цикла
first := first * 2; // Увеличиваем первое вдвое
second := second * 2; // Увеличиваем второе вдвое
write(first, ' ', second); // Выводим их
end; // Конец цикла
end. // Конец программы
