Question

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

Answer 1

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