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

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 xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

 

 

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец