Як переглянути вміст отриманого файла?

Компьютерный вирус — это компьютерная программа, вызывающая нарушение работы других программ, порчу информации, невозможность прочитать файлы, замедление либо нестабильность работы компьютера,а так же создавать копии самого
Защитить компьютер можно только антивирусами.Но антивирусы не всегда могут заметить вирус,ведь с каждым днем появляются новые вирусы.Так же защитой может быть наблюдательность,то есть не заходит на не знакомые сайты,не переходить по посторонним ссылкам.
Но корпорация Microsoft,советует также постоянно обновлять операционную систему Windows.А так же держать включенным Брандмауэр(Брандмауэр Windows или другой брандмауэр оповещают о наличии подозрительной активности при попытке вируса или червя подключиться к компьютеру. Он также позволяет запретить вирусам, червям и хакерам загружать потенциально опасные программы на компьютер)

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Пример программы с использованием данной функции:

Program Example;
Var a, b: Integer;

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Begin
    Write('a = ');
    ReadLn(a);
    Write('b = ');
    ReadLn(b);
    Write('НОД: ', NOD(a, b));
    ReadLn;
End.