Question

срочно!!!!! Составить программу удваивающую значение переменной, а, если а>5, a<=1 и утраивающую значение, а, если 1<а<=5.
с блок схемой нарисовать

Answer 1

Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.