С клавиатуры вводится число, если число принадлежит промежутку от 10 до 30, то его умножают на три, иначе умножают на — 1, результат вывести на экран

Вопрос от пользователя: Тося

С клавиатуры вводится число, если число принадлежит промежутку от 10 до 30, то его умножают на три, иначе умножают на — 1, результат вывести на экран

Ответ: Олимпиодора

Program z;

var a: integer;

begin

readln (a);

if (a 10) then

writeln (a*3)

else writeln (-a);

end.