Составьте блок- схему и программу для определения, что больше-( а-3) или( 2а- и в зависимости от введеного с клавиатуры значения а

Блок-схема - в прилагаемом файле.
var a:integer;
begin
write('a = ');
readln(a);
writeln('-(a-3) = ',-(a-3));
writeln('(2*a-10) = ',2*a-10);
if -(a-3)>(2*a-10)
 then writeln(-(a-3),' > ',(2*a-10))
 else writeln((2*a-10),' > ',-(a-3));
end.

Пример:
a = 5
-(a-3) = -2
(2*a-10) = 0
0 > -2

~~~~~~~~~~~~~~~

Программа:

program change;

var

a, b, c, d, changeabcd: integer;

begin

 changeabcd := 0;

 read(a, b, c, d);

 changeabcd := d - (a + b + c);

 write(changeabcd);

end.

~~~~~~~~~~~~~~~

Алгоритм:

Шаг 1. Присвоить переменной changeabcd значение 0;

Шаг 2. Ввести a, b, c, d;

Шаг 3. Вычислить changeabcd = d - (a + b + c);

Шаг 4. Вывести changeabcd.

~~~~~~~~~~~~~~~

Блок-схема в прикрепленном скриншоте.

Объяснение:

program change;  // Название программы

var

 a, b, c, d, changeabcd: integer;  // Создание целочисленных переменных:

a, b, c, d - стоимость перчаток, портфеля, галстука и сумма, выделенная на покупку;changeabcd - сдача.

begin  // Начало программы

 changeabcd := 0;  // Переменной, хранящую сдачу, присваиваем 0

 read(a, b, c, d);  // Считываем значения переменных с клавиатуры

 changeabcd := d - (a + b + c);  // Высчитываем сдачу

 write(changeabcd); // Выводим значение переменной changeabcd, хранящей сдачу

end. // Конец программы

а: 2(м)-один моток                                                                                                             а: 2-2-(м)-второй моток