Дано число. Удвоить его, если оно кратно шести, и утроить, если оно кратно семи. Вывести полученный результат.

var

 r: Integer;

begin

   Write ('Введите целое число: ');

   ReadLn (r);

   if (r mod 6 = 0) then

     WriteLn ('Число кратно 6. Удвоенное значение = ' + IntToStr (r * 2))

   else if (r mod 7 = 0) then

     WriteLn ('Число кратно 7. Утроенное значение = ' + IntToStr (r * 3))

   else

     WriteLn ('Число не кратно 6 или 7');

end;