Разобрать программу, написать программу и
расчет

фрагмент действий

а:= -3;
b:=(a+7)-а;
b:=b-а;
c=(-b*a)-(a*a);

вывести все переменные​

Константин Симонов
Если родилась красивой,
Значит, будешь век счастливой.

Если будешь гордой мужем —
Скажут: потому что нужен.
Как других, с ним разлучит могила —
Всем простят, тебя возьмут в немилость.
Позабудешь — скажут: не любила,
Не забудешь — скажут: притворилась.

Владаимр Высоцкий
Если друг оказался вдруг
И не друг, и не враг, а - так,
Если сразу не разберешь,
Плох он или хорош,-
Парня в горы тяни - рискни!
Не бросай одного его,
Пусть он в связке в одной с тобой -
Там поймешь, кто такой.

Если парень в горах - не ах,
Если сразу раскис и - вниз,
Шаг ступил на ледник и - сник,
Оступился - и в крик,-
Значит, рядом с тобой - чужой,
Ты его не брани - гони:
Вверх таких не берут, и тут
Про таких не поют.

Если ж он не скулил, не ныл,
Пусть он хмур был и зол, но - шел,
А когда ты упал со скал,
Он стонал, но - держал,
Если шел за тобой, как в бой,
На вершине стоял хмельной,-
Значит, как на себя самого,
Положись на него.

//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.