Паскаль дано кол-во детей и вместимость автобуса. сколько нужно автобусов нужно написать что то наподобие "uses crt, begin" желательно пошагово

Var a,b:integer;
begin
writeln('kolicestvo detei=');
readln(a);
writeln('vmestimosti avtobusa=');
readln(b);
writeln('nujno ',(a div b)+1,'avtobusov');
readln;
end.

Uses CRT;

Var
A,B:integer;

Begin
Write('KOL-BO DETEi = ');ReadLn(A);
Write('BMECTiMOCTb = ');ReadLn(B);
if A mod B = 0 then WriteLn(A div B)
else WriteLn((A div B)+1);

ReadKey
End.