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

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.

попробуй так

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

R:=K-M;

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

else

begin writeln ('Забор покрасить не получиться ');

D:=M-K;

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

end.