1) Дано число А. Определить, положительное, отрицательное оно или равно 0,2)…

1) var A: integer; Begin Readln (a); If a<>0 then If a<0 then writeln ('a<0') else writeln ('a>0') Else writeln ('a=0'); End. 2) Var A,M,n: integer; Begin readln (m); readln (n); If m=n then writeln ('error') else If m>n then a: =n else a: =m; If (-20 <= a) and (a<10) then writeln ('Yes') else Writeln ('No'); End.