8 Тест записи алгоритмов» Вариант 1 Необходимо найти значение следующего выражения:
y = 6*d - (x + 22).
Построчная запись алгоритма решения этой задачи может иметь вид:
1. Ввести значения х и
2. Сложить х и
3. Умножить d на
4. Вычесть из 6*d сумму (х + 22).
5. Вывести у как результат вычисления выражения.
(Внимание: при заполнении используйте только латинские строчные символы и/или цифры без пробелов).
​

var x,d: integer;

begin

read(x,d);

x:=x+22;

d:=d*6;

writeln(d-x);

end.

var a: integer; beginreadln(a); write (a div 10); end.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.