Напишите программу которая увеличивает введенные число с клавиатуры в 3 раза если оно...

Question

Напишите программу которая увеличивает введенные число с клавиатуры в 3 раза если оно отрицательное и уменьшает на 8 если оно положительное

Answer 1

Program z123;
var  a: integer;
begin  read(a);  if a > 0 then    a := a - 8  else a := a * 3;  writeln(a);end.

---