Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Получилось 6553, потому что 2000 симв на одной стр и 104857600 бит в 100 мб
Ответ:
вариант
б) Понятное
Program a1;
uses crt;
var
ta,b, i,s:integer;
begin.
readln(a);
readln(b);
s:=0;
if a > b then
for i:= a to b do
if i mod 7 = 0 then
s:=s+i;
else
else
if b > a then
for i:= b to a do
if i mod 7 = 0 then
s:=s+i
begin
end;
writeln(s);
end.