Написать программу: Дано число, если оно делится на 8, увеличить его на 3, иначе уменьшить в 10 раз. Результат вывести на экран.

program zadacha;var a:integer;beginreadln (a);if a mod 8=0then a:=a*8else a:=a div 10;writeln (a);end.