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

Question

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

Answer 1

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

Comments

Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then b:=2*a;<br>If (1writeln (b);
End.
Так лучше!!!!!