15. все модели компьютеров, совместимые между собой, называют а. платформой б. перроном в. причалом г. гаванью 6. что можно найти на задней стенке системного блока? 7. что представляет из себя мышь, «перевернутая на спину» ? а. джойстик б. трекбол в. дигитайзер г. плоттер 10. какая форма взаимодействия пользователя с компьютером является общепринятой ? а. монолог б. диалог в. спор г. диспут

Ну, в общем, лови решение. { freepascal 2.6.4} program test; uses       crt; var       a, b, c, d  : integer;       f : longint; procedure swap (var x : integer; var y : integer); var z : integer; begin       z : = x;       x : = y;       y : = z; end; function nod (m, n : integer) : integer; begin       while m< > n do begin               if m> n               then                       m: =m-n               else                       n: =n-m;       end;       nod : = m; end; function max (a,b : integer) : integer; begin       if a> b       then max : = a       else max : = b; end; function min (x, y, z : integer) : integer; var m : integer; begin       m : = x;       if y< m then m : = y;       if z< m then m : = z;       min : = m; end; function mypow (a, b : integer) : integer; var e, f : integer; begin       f : = 1;       for e: =1 to b do f : = f*a;       mypow : = f; end; function fact(a : integer) : longint; var       i : integer;       res : longint; begin       res : = 1;       for i : = 1 to a do res : = res*i;       fact : = res; end; begin       clrscr;       writeln('test of function swap');       write('input a: ');       readln(a);       write('input b: ');       readln(b);       swap(a, b);       writeln('a=', a, ', b=', b);       writeln;       writeln('test of function nod');       write('input a: ');       readln(a);       write('input b: ');       readln(b);       c : = nod(a, b);       writeln('nod(', a, ',', b, ')=', c);       writeln;       writeln('test of function max');       write('input a: ');       readln(a);       write('input b: ');       readln(b);       c : = max(a, b);       writeln('max(', a, ',', b, ')=', c);       writeln;       writeln('test of function min');       write('input a: ');       readln(a);       write('input b: ');       readln(b);       write('input c: ');       readln(c);       d : = min(a, b, c);       writeln('min(', a, ',', b, ',', c, ')=', d);       writeln;       writeln('test of function pow');       write('input a: ');       readln(a);       write('input b: ');       readln(b);       c : = mypow(a, b);       writeln('pow(', a, ',', b, ')=', c);       writeln;       writeln ('test of function fact (not large than 12! )');       write('input a: ');       readln(a);       f : = fact(a);       writeln(a, '! =', f);       writeln;       readkey; end.