Задача по информатике решить в паскале Имеется продуктовая база в которой можно закупить партию товара по условиям минимальная стоимость , близость поставки , прочность товара Если товар удолетворяет - закупаем Если ее удолетворяет - не закупаем Помогите пожалуйста !!!!

 

 Сегодня задача должна быть сделана помогите пожалуйста!!!!

Мы вводим данные близость поставки, прочность товара, и минимальная стоимость если все три условия выполняются ввыводим закупаем а если не выполняются выводи не закупается

 

 

 

 

 

{ Задача по информатике решить в паскале Имеется продуктовая база в которой можно закупить партию товара по условиям минимальная стоимость , близость поставки , прочность товара Если товар удолетворяет - закупаем Если ее удолетворяет - не закупаемМы вводим данные близость поставки, прочность товара, и минимальная стоимость если все три условия выполняются ввыводим закупаем а если не выполняются выводи не закупается}type    WareData = record        MinPrice: integer;        Distance: integer;        Strength: real;    end;var    Base, Client: WareData;begin    Base.MinPrice := 4;    Base.Distance := 57;    Base.Strength := 0.25;        read(Client.MinPrice, Client.Distance, Client.Strength);    if (Client.MinPrice >= Base.MinPrice)         and (Client.Distance >= Base.Distance)         and (Client.Strength <= Base.Strength) then        writeln('Берем')    else         writeln('Не устраивает');end.