Олимпиада по математике 7 класс, помогите решить срочно!

Что не так с кодом

program x;

var a,b,Q,M,K,S,D,R:real;

begin

Writeln ('Введите длину забора');

readln (a);

Writeln ('Введите высоту забора');

readln (b);

Writeln ('Введите расход краски'); 

readln (Q);

Writeln ('Введите количество имеющейся краски');

readln (K);

S:=a*b;

writeln ('Площадь забора равна ',S);

M:=S*Q;

begin

writeln ('Количество краски для покраски равна ',M);

if K>=M then writeln ('Забор будет покрашен ');

R:=K-M;

writeln ('Остатки краска ',R);

end

if K<M then writeln ('Забор покрасить не получиться ');

D:=M-K;

writeln ('Дополнительная краска ',D);

end.

Помогите пожалуйста с информатикой. Задача: Строители вокруг нового дома возвели забор который необходимо покрасить. На складе кол краски ограниченно. Смогут ли строители покрасить весь забор?Останиться ли краска после покраски или потребуется дополнительная краска. Составьте пожалуйста программу на языке паскаль в полной и не полной форме. Спасибо!