Среди вводимых трёх чисел найдите разность наибольшего и наименьшего.

Будет 50                        

//////////////////////////forvar   a, i, n, sum: integer;   degin       readln(a, n);       sum : = 1;       for i : = 1 to n do sum : = sum * a;       writeln(sum); end.//////////////////////////while var   a, i, n, sum: integer;   begin     read(a, n);     sum : = 1;       while i < > n do       begin           sum : = sum * a;         inc(i);       end;     writeln(sum); end.//////////////////////////repeat var   a, i, n, sum: integer;   begin     read(a, n);     sum : = 1;       if n < > 0 then         repeat             begin                 sum : = sum * a;                 inc(i);             end;         until i = n;       writeln(sum); end.

По выполняемым функциям и возможности применения  информационные технологии делят на используемые: 1) в автономных компьютерах (пэвм) и в локальных рабочих станциях (арм) в составе сетевых автоматизированных информационных систем (аис) реального времени; 2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах; 3) в системах с искусственным интеллектом; 4) в интегрированных аис; 5) в геоинформационных, и других системах.