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

Program z;
var a: integer;
begin
readln(a);
if (a < 30) and (a > 10) then
writeln(a*3)
else writeln(-a);
end.