Надо написать код программы
Язык - Паскаль
Вот задания:
1. Создать и инициализировать класс «товар», которая содержит сведения: название, стоимость, срок годности, производитель, методы для инициализации и отображения данных.
2. Объявить 2 экземпляра класса. Один из них инициализировать, втором предоставить конкретных значений в процессе работы программы.
type
Товар = class
public
Наименование: string;
Стоимость: real;
СрокГодности: integer;
Производитель: string;
constructor (Наим: string; Стоим: real; Срок: integer; Произв: string);
begin
Наименование := Наим;
Стоимость := Стоим;
СрокГодности := Срок;
Производитель := Произв;
end;
function ToString: string; override;
begin
Result := $'{Наименование}, {Стоимость}, {СрокГодности}, {Производитель}'
end;
end;
begin
var t1 := new Товар('Конфетка',250.6,24,'Артелька');
var t2 := new Товар;
t2.Наименование := 'Печенька';
t2.Стоимость := 79;
t2.СрокГодности := 36;
Println(t1);
Println(t2)
end.