Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 12. Вывести полученное число. O program zadaca; var а: integer; begin writeln('Введи число а'); readln(a); ; if a >=0 then if a=0 then a:=12 else a:=a+1 else a:=a-3; end. O program zadaca; var begin writeln('Введи число а'); readln(a); If a > 0 then If аѕ0 then are12 else a:a+1 else a:-a-3; writeln(a); readln; ; end

var

  a, b : real;

begin

  read (a, b);

  write (trunc (a * b));

end.

 

var

  a : integer;

begin

  read (a);

  write (frac (a / 10));

end.

 

г)

var

  a, b : real;

begin

  read (a, b);

  write (round (a + b));

end.

 

d)

var

  a, b : integer;

begin

  read (a, b);

  write (a div b);

end.

 

e)

var

  a : integer;

begin

  read (a);

  write (a div 1000);

end.

 

ж)

var

  a : longint;

begin

  read (a);

  write (a div 24 + 1);

end.

 

з)

var

  k : integer;

begin

  read (k);

  write (k div 7 + 1);

end.

 

и)

var

  k : integer;

begin

  read (k);

  write (k div 60, ':', k mod 60);

end.