Составить 6 алгоритмов на любую тему

За 4 умножения получить var a, b: integer; begin       readln(a);       b : = a * a;       b : = b * b;       b : = b * b;       b : = a * b;       writeln(b); end.вывести числа [a; b]  и их квадратыvar a, i, b: integer; begin       readln(a, b);       for i : = a to b do           writeln(i, '   ', sqr(i)); end. произведение 2-х чисел var a, b: integer; begin       readln(a, b);       writeln(a * b); end. максимальное и минимальное из 100 введённых чисел без использования массивов: var k1, mi, ma, i: integer; begin readln(ma); readln(mi); for i : = 1 to 98 do begin readln(k1); if (ma < k1) then ma : = k1; if (mi > k1) then mi : = k1; end; writeln(ma, ' - ', mi); end.  перевод из 10чной сс в 2чную var b: array [1..255] of integer;     a, i, n: integer; begin       readln(a);       i : = 0;       while (a > = 1) do       begin           i : = i + 1;         b[i] : = a mod 2;       a : = a div 2;       end;     n : = i;     for i : = n downto 1 do  write(b[i]); end. x в степени y   var x, y: real;   begin       readln(x, y);       writeln(exp(ln(x) * y));   end.вот)

Только один раз, в отличие от цикла с предусловием, который проверяет условие в начале шага.