1. X:=4; if x>0 then y:=sqr(x); writeln(y) 2. If x>0 then y:=2*x else y:=3*abs(x); writeln(y) 3. Case 5<>5 of True:writeln(1); False:writeln(3); end; 4. Case 6 of 2: writeln(0); 4: writeln(1) Else writeln(2); end; 5. Begin x:=5; x:=ord(x); x:=succ(x); writeln(x); end; 6. X:=10; if x>10 then y:=x*x else y:=2*x; writeln(x) 7. X:=10; if odd(x) then y:=x div 2 else y:=x mod 2; writeln(y) 8. K:=0; case 8 of 6: writeln(k); 8: begin k:=k+1; writeln(k); end; End;​