Дано число. Удвоить его, если оно кратно 6, и утроить, если

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;