Задача 1. Найти сумму чисел от 1 до 10.
Program n1;
var
a, b, sum :integer;
begin
sum:=0;
pr:=1;
for a:=1 to 10 do
begin
sum:=sum+a;
end;
writeln ('сумма чисел от 1 до 10 = ',sum);
end.

ЗАДАНИЕ.
Используя образец (задача 1), написать программу нахождения произведения
чисел от 3 до 13.

Const Sz = 1000; var   a: array [1..Sz] of integer;  a1: array [1..Sz] of integer;  a2: array [1..Sz] of integer;  a3: array [1..Sz] of integer;  M: integer;  N: integer;  i: integer;  k: integer;begin  read(M);  readln(N);  for k:=1 to N do begin    read(a[i]);    readln(a1[i]);    if (a[i]<>0) then a3[i]:=1 else a3[i]:=0;    end;  for k:=1 to N do begin  if(a3[i]<>0) then begin  for i:=1 to i do begin  if(a3[k]=0) then d[i]:=1;  if (a2[k]=i) then d[k]:=0;   end;   writeln(a3[i])  end;end;end.
вроде так

Bitdefender это антивирус который был сделан в румыний. Данную программу используются более чем в 150 странах мира и являются особо популярными в Германии и Франции. И обаснователями этой программы шитаются Флорин Талпеш и Богдан Димитру.

И к тому же cогласно данным исследования, проведенного экспертами Роскачества совместно со специалистами Международной ассамблеи организаций потребительских испытаний (ICRT) в 2018 году, антивирус BitDefender получил наибольшее количество (4, из возможных пяти) и занял первое место в общем рейтинге антивирусов.

Объяснение: