Срочно помогите пожалуйста

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 stlt;=s 
    then begin
      TextColor(LightBlue);
      WriteLn(Денег на закупку достаточно.);
      TextColor(White);
    end
    else begin
      TextColor(Red);
      WriteLn(На закупку не хватает ,st-s, руб.);
      TextColor(White);
    end;
end.