Uses crt;
const m=100;
var
a,b,c,s,st: integer ;
begin
write ('Введите длину помещения (см) ');
readln (a);
write ('Введите ширину помещения (см) ');
readln (b);
write ('Введите стоимость 1 пластины (руб) ');
readln (c);
write ('Введите количество денег в наличии (руб) ');
readln (s);
if (a mod m)=0 then a:=(a div m) else a:=(a div m)+1;
if (b mod m)=0 then b:=(b div m) else b:=(b div m)+1;
st:=a*b*c;
if st<=s <br> then begin
TextColor(LightBlue);
WriteLn('Денег на закупку достаточно.');
TextColor(White);
end
else begin
TextColor(Red);
WriteLn('На закупку не хватает ',st-s,' руб.');
TextColor(White);
end;
end.