Напишите программу которая вводит значение четырех переменных a, b, c, d типа integer и выводит их сумму. ввод пары значений a и b произвести на одной строке, c и d на другой. результат вывести на отдельную строку и курсор оставить на этой же строк

A, b, c, d: integer; begin readln(a, b); readln(c, d); write(a + b + c + d); end.

Const   m=5;   n=4; var   mas: array[1..m,1..n] of integer;   i, j, mult: integer; begin   for i: =1 to m do     for j: =1 to n do     begin       write('mas[', i, ',', j, '] = ');       readln(mas[i,j]);     end;   for i: =1 to m do   begin     for j: =1 to n do       write(mas[i, j], ' ');     writeln;   end;   mult: =1;   for i: =1 to m do     mult: =mult*mas[i,3];   writeln('произведение 3-го столбца массива = ', mult) end.

//pascal abc.net 3.1 сборка 1219 const   n=10; var   c,i,k: integer;   ar: array[1..n] of integer;   r: real; begin   readln(c);   writeln('array: ');   for i: =1 to n do   begin     ar[i]: =random(-43,34);     if ar[i]> c then       begin       inc(k);       r: =r+ar[i];     end;     write(ar[i]: 4);   end;   writeln;   r: =r/k;   write(r); end. пример ввода: 0 пример вывода: array:   20 -23   23   18 -40 -16 -39   31 -12   21 22.6