(p ^. Date_P> = D3) and (p ^. Date_P = D4) and (p ^. Date_P
end;
Writeln ('За I квартал минулого року продано', s, 'товарів');
Writeln ('За II квартал минулого року продано', s1, 'товарів');
Writeln ('За III квартал минулого року продано', s2, 'товарів');
Writeln ('За IV квартал минулого року продано', s3, 'товарів');
Writeln ('Вивести список товарів? (да-y/нет-n)'); Readln (otv);
otv: = AnsiLowerCase (otv); otv = 'y' then
Writeln ('I квартал минулого року:');
p: = top;: = 0; p <> nil do (k); (p ^. Date_P> D1) and (p ^. Date_P
end;
Writeln ('II квартал минулого року:');
p: = top;: = 0; p <> nil do (k); (p ^. Date_P> = D2) and (p ^. Date_P
end;
Writeln ('III квартал минулого року:');
p: = top;: = 0; p <> nil do (k); (p ^. Date_P> = D3) and (p ^. Date_P
end;
Writeln ('IV квартал минулого року:');
p: = top;: = 0; p <> nil do (k); (p ^. Date_P> = D4) and (p ^. Date_P
Лістинг 11. Завдання № 5
TryStrToDate (g, D1);
Writeln ('Вкажіть кінець періоду (дд.мм.рррр):'); Readln (g1);
TryStrToDate (g1, D2);
Writeln ('Вкажіть місце покупки:'); Readln (Mesto1);
p: = top; p = nil then Writeln ('Стек порожній') beginp <> nil do (p ^. Date_P> D1) and (p ^. Date_P
Лістинг 12. Вибір непереборної
Vibor (W: string; p: TPElem; b, k: Integer);: = AnsiLowerCase (W); (W = 'print') or (W = 'printall') or (W = 'help') or (W = 'delete') or (W = 'delete all') or (W = 'edit') or (W = 'exit') (W = 'one') or (W = ' two ') or (W =' three ') or (W =' four ') or (W =' add ') thenW =' print 'then (b);; W =' printall 'then;; W =' help 'then;; W =' delete 'then;; W =' delete all 'then;; W =' add 'then (b);; W =' edit 'then (b);; W =' exit 'then: = 1;; (W = 'one') then;; (W = 't...
