Записать в две колонки глаголы I и II спряжения, выделить окончания Молчишь, пишешь, держит, знаешь,

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

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.

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