Напишите программу в паскале ! заранее ! для покраски 1 м2 потолка требуется a г краски. краска продается в банках по b кг. сколько банок краски нужно купить для покраски потолка площадью c кв2?

Var a,b,c,k:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
k:=(a*c-1) div (b*1000)+1;
writeln('k = ',k);
end.

Пример:
a, b, c:
125 2 17
k = 2