Составьте программу на языке программирования pascal в подвале школы потоп. n литров воды оказалось в зоне потопа. у учащихся, устранить потоп, имеются ведра вместимостью 12 литров. сколько вёдер воды нужно вынести, чтобы полностью устранить потоп в школе

Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер') 
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.