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

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