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

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

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