из банка на выплату зарплаты привезли а рублей хватит ли этой

program raf105;

var a,n,s,k:integer;

begin

write('Сколько рублей привезли: ');

readln(a);

write('Сколько на предприятии тружеников: ');

readln(n);

write('Средняя заработная плата: ');

readln(s);

write('Остаток в кассе: ');

readln(k);

writeln;

if s lt;= ((a+k) div n)

 then writeln('Этой суммы хватит')

 else writeln('Этой суммы не хватит');

end.