Ввести 2 числа. вычесть из большего меньшее. (на языке паскаля)

program prim;

uses crt;

var

a,b,r: integer;

begin

clrscr;

writeln ('ввести два числа');

readln (a,b);

if a> b then

begin

r: =a-b;

end

else

begin

r: =b-a;

end;

writeln ('r=', r: 5);

readkey;

end. 

Var mas: array [1..100, 1..100] of integer;     n, m, i, j, k, ok: integer; begin   write("введите n и m: ");   readln(n, m);   for i: =1 to n do   for j: =1 to m do     read(mas[i,j]);   for i: =1 to n do   for j: =i+1 to n do   begin     ok: =1;     for k: =1 to m do     if mas[i,k]=mas[j,k]     then       begin       ok: =0;       break;       end;     if (ok=1)     then     writeln(i, j: 3);   end; end.

Можно заметить, что на "четной" операции единица сдвигается на одну позицию вперед, т.к. у нас четное кол-во карточек перекладывается на этом ходу и единица написана на левой центральной карточке  на "нечетной" операции единица лежит в центре и она никуда не сдвигается, т.е. за каждые два хода единица двигается на одну позицию вперед для n карточек, единица будет лежать на позиции:   n/2 + 1, если n - четное (n-1)/2 + 1, если n - нечетное для 400 карточек:   400/2 + 1 = 201 ответ: на 201-ой позиции