Задача 3. Створити список з 10 випадкових елементів (від -10 до 10 Надрукувати лише додатні з них

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.