Тип данных номер1. 301- 11.1.1.1994- 50%- 100%- номер2. =а3-а5-относительная =а1-в1 =а4+в3 пож ,

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

uses graphABC;
const
    kegl = 40;

var
    space, line: integer;

procedure M(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl );
    LineTo(cx + kegl div 2, cy);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure I(cx, cy: integer);
begin
    MoveTo(cx, cy - kegl);
    LineTo(cx, cy );
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure R(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy - kegl div 2);
    LineTo(cx, cy - kegl div 2);
end;

begin
    space := kegl div 2;
    
    SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
    
    line := space + kegl;
    M(space, line );
    I(2 * space + kegl, line );
    R(3 * space + 2 * kegl, line );
    
    line := 2 * space + 2 * kegl;
    R(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
    
    line := 3 * space + 3 * kegl;
    M(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
end.

1. Реакция компьютера на обыденные действия отличается от обычной, например, вместо открытия корневой папки флешки открывается папка, которая содержит ссылку на флешку (реальная история - доводилось повидать вирус, который создает на флешке ссылку на саму себя).
2. Возникают различные сообщения об ошибках, которых раньше не было и которым нет явной причины.
3. Вся система блокируется с сообщением вроде "отправьте СМС на такой-то номер и введите полученный код в течение 24 часов, или система будет стерта".