Теплоход рассчитан на а человек пассажиров, в-членов команды шлюпка вмещает с человек. сколько должно быть шлюпок, чтобы всех нужно составить блок схему и программу

Var a,b,c:integer;
k:real;
BEGIN
write('Введите число пассажиров: ');
readln (a);
write('Введите число членов команды: ');
readln (b);
write('Введите число мест в шлюпке: ');
readln (c);
k := (a + b)/c;
if frac (k) <> 0 then k := int(k) + 1
else k := k;
writeln('Чтобы всех необходимо ',k, ' шлюпок')
END.