Составить программу, включающую меню из четырех пунктов: 1.создать текстовый файл из пяти строк-предложений. 2.вывести содержимое файла на экран. 3.вывести на экран количество слов, содержащих цифры. 4.выход. первые три пункта меню реализовать в процедурах, которые поместить в модуль. на делфи.

{запись 5 строк в файл  } procedure tform1.button1click(sender: tobject); var outfile: textfile; begin assignfile(outfile, 'outfile.txt') ; rewrite(outfile); writeln(outfile, ' из delphi'); writeln(outfile, 'моя программа работает, и выводит ' +'данный текст, чтобы доказать '); writeln(outfile, '3. треться строка'); writeln(outfile, '234 четвертая'); writeln(outfile, 'пятая строка'); closefile(outfile); end; // вывод на экран точнее в мемо или лист боксprocedure tform1.button2click(sender: tobject); begin  // выводим в мемо  memo1.lines.loadfromfile('outfile.txt'); // либо в лист бокс  как тебе лучше  listbox1.items.loadfromfile('outfile.txt'); end; // кнопка для закрытия  procedure tform1.button3click(sender: tobject); begin  close; end; // событие oncloseprocedure tform1.formclose(sender: tobject; var closeaction: tcloseaction); begin  if messagedlg('вы точно хотите выйти? ',      mtconfirmation, mbokcancel,0)= mrok then begin      closeaction: = cafree;           end  else begin      closeaction: = canone;   end; end; здесь! outfile.txt - это ваш файл(может создаваться автоматическичто нужно сделать? 1. закинуть на форму 3 кнопки2. закинуть listbox или memo3. в событиях формы в инспекторе объектов (инспетор объектов/ события/ onclose) в onclose выбрать процедуру formclose

print("Введіть вартість товару")

sum = input()

print("Чи маєте дисконтну картку?(0/1)")

card = bool(int(input())

if card == True or sum > 3000:

sum = sum - (sum / 20)

print(sum)