Дано число, удвоить его в 3 раза если оно кратно 17. в противном случае уменьшить на 4. вывести ответ на экран. в pascal abc

Question

Информатика: Дано число, удвоить его в 3 раза если оно кратно 17. в противном случае уменьшить на 4. вывести ответ на экран. в pascal abc

boginyanatasha · Answer

Var a:real;beginread(a);if a mod 17 = 0 then beginwrite(a*2*3);end;else beginwrite(a-4);end;end....