Ребята, срочно, помогите!!! Нужно в Паскале написать программу, которая: Решает следующую задачу: На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе? var n,k: real; begin     writeln('Введите количество ящиков мыла завезенных на склад');   readln (n);   writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');   readln (k);    n:=n-(10*k);   If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')           else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла'); end.