7 класс. Turbo Pascal

Задача №1: С кондитерской фабрики разгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм конфет?

Задача №2:

int (-5,89)

int (0,53)

round (-5,8)

round (5,2)

frac (-17,4)

frac (0,32)

trunc (-17,4)

trunc (15,2)

45 div 4

15 mod 8

(489 div 10) mod 10

1).

var a, b, c, n:integer;

m:real;

begin

a:=10;

b:=5;

c:=1;

readln (n) ;

if (n mod 10) = 0 then m:=n div a;

if (n mod 10) = 5 then m: = (n div a) + 1;

if (n mod 10 = 1) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then m: = (n div a) + c * (n mod 10) ;

if (n mod 10=6) or (n mod 10=7) or (n mod 10=8) or (n mod 10=9) then m: = (n div a) + 1+c * (n mod 5) ;

writeln (m) ;

end.

2). Не понял.