Надо написать код программы Язык - ПаскальВот задания: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.

Червь  – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу,  троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что  он не может самостоятельно размножаться.

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.