Написать программу вычисления модуля разности двух данных целых чисел

Pascal: var a,b: longint; begin   write ('number 1: ');   readln (a);   write ('number 2: ');   readln (b);   writeln (abs(a-b));   readln; end. c++: #include < iostream> #include < cmath> using namespace std; int main() {     int a,b;     cout < < "number 1: ";     cin  > > a;     cout  < < "number 2: ";       cin  > > b;     cout < < abs(a-b)  < < endl;     return 0; }

Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.