Дано целое число. если оно является положительным, то прибавить к нему 33; в противном случае не изменять его. вывести полученное число. program cislo; var a: integer; begin writeln('введи число a'); readln(a); if a > 0 then a: =a; writeln(a); readln; end. program cislo; var a: integer; begin writeln('введи число a'); readln(a); if a < 0 then a: =a+33; writeln(a); readln; end. program cislo; var a: integer; begin writeln('введи число a'); readln(a); if a > 0 then a: =a+33; writeln(a); readln; end.