Задача по информатике решить в паскале Имеется продуктовая база в которой можно…

{ Задача по информатике решить в паскале Имеется продуктовая база в которой можно закупить партию товара по условиям минимальная стоимость, близость поставки, прочность товара Если товар удолетворяет — закупаем Если ее удолетворяет — не закупаемМы вводим данные близость поставки, прочность товара, и минимальная стоимость если все три условия выполняются ввыводим закупаем а если не выполняются выводи не закупается}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.