Скачай антивирусную утилиту avz4 и просканируй компьютер. Либо же антивирусную dr.web cureit. Поверь, дело может быть в этом.
Проверь файл hosts, расположенный в папке windows\system32\drivers\etc\hosts. Открой его блокнотом и сотри все, что там написано, кроме:
# localhost name resolution is handled within DNS itself.
# 127.0.0.1 localhost
# ::1 localhost
Хотя и это там необязательно
var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
<span>Структуру разветвляющегося алгоритма, так как будет задаваться условие.</span>