Придумать 5 объектов родительского класса. к этим объектам придумать по 3 наследника от родительского класса. в каждом родительском классе должна быть минимум одна общая характеристика для всех наследников

Аххаха, ты тоже с Харькова с программирования в 14 гимназии?

Скопировал из телеграмма?)))

1. Вирусы попадают в компьютер путём открытия файла или открытие ссылки в браузере , когда начала развиваться тема майнинга или же виртуальная крипто валюта, тогда начали создаваться вирусы под названием malware, люди когда оставались на сайте у них система началась перегружаться то есть она начала добывать криптовалюты человеку который создал вредоносный код на сайт (вирус), или же просто люди открывают и файл и по такой-же системе вирус начинает добывать криптовалюты, ну или вирусы удалённого доступа, когда кто-то управляет чужим компьютером через свой же компьютер, мошенники передают файл, человек открывает и потом мошенник начинает управлять компьютером чтобы получить данные, пароли, карты и т.д

2.Вирусы создают люди которые воруют (пытаются заработать) или навредить человеку.

Program abc;
var a:array[1..6] of integer;
var i,s: integer;
begin
 i:=0;a[1]:=500;a[2]:=100;a[3]:=10;a[4]:=5;a[5]:=2;a[6]:=1;
writeln('Введите целое число,сумму денег:');
readln(s);
while s<>0 do
begin
if s>=a[1] then begin
s:=s-a[1]; i:=i+1; end;
if (s>=a[2]) and (s<a[1]) then begin s:=s-a[2]; i:=i+1; end;
if (s>=a[3]) and (s<a[2]) then begin s:=s-a[3]; i:=i+1; end;
if (s>=a[4]) and (s<a[3]) then begin s:=s-a[4]; i:=i+1; end;
if (s>=a[5]) and (s<a[4]) then begin s:=s-a[5]; i:=i+1; end;
if (s>=a[6]) and (s<a[5]) then begin s:=s-a[6]; i:=i+1; end; 
end;
Writeln('Наименьшее число купюр =',i);
end.