Для данного целого х найти значение следующей функции f, принимающей значение целого типа: f(x)= 2*х, если х< -2 или х> 2, -3*х в противном случае

Program if25; var x,y: real; begin readln(x); if (x > 2) or (x < -2) then y : = 2*x else y : = -3*x; writeln('f(x) = ',y); end.

Одну монетку откладываем. оставшиеся взвешиваем  по 4 монетки в каждой чашечке весов. если весы в равновесии, нам повезло, отложенная монетка и есть фальшивая. т.е. при удаче можно обойтись одним взвешиванием. если же одна чашечка легче, значи там находится фальшивая монета. берем эти 4 монеты и раскладываем их по 2. это второе взвешивание.  одна из чашечек будет легче. сравнивая вес  этих двух монеты и находи фальшивую. это третье взвешивание. ответ: потребуется или одно, или три взвешивания

Из текста непонятно, нужен ли промежуточный вывод, поэтому он присутствует после каждого этапа, чтобы убедиться в правильности работы программы. программа написана и отлажена в среде pascalabc.net. const   n = 4; var   a: array[1..n,1..n] of integer;   i,j,s,amin,jmin,amax,imax: integer; begin   { инициализация массива }   writeln('исходный массив');   for i: =1 to n do   begin       for j: =1 to n do       begin           a[i,j]: =random(51)-25; { случайные числа на [-25; 25] }           write(a[i,j]: 4)       end;       writeln   end;   { сумма элементов побочной диагонали }   s: =0;   for i: =1 to n do s: =s+a[n-i+1,i];   writeln('сумма элементов побочной диагонали: ',s);   writeln('меняем местами первый и последний столбцы');   for i: =1 to n do   begin s: =a[i,1]; a[i,1]: =a[i,n]; a[i,n]: =s end;   { вывод }   for i: =1 to n do   begin       for j: =1 to n do write(a[i,j]: 4);       writeln   end;   { меняем местами минимальный элемент первой строки   и максимальный элемент последнего столбца }   amin: =a[1,1]; jmin: =1;   for j: =2 to n do       if amin> a[1,j] then begin amin: =a[1,j]; jmin: =j end;   amax: =a[1,n]; imax: =1;   for i: =2 to n do       if amax< a[i,n] then begin amax: =a[i,n]; imax: =i end;     a[1,jmin]: =amax; a[imax,n]: =amin;   writeln('массив после обмена местами найденных элементов');   for i: =1 to n do   begin       for j: =1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: исходный массив   -14 -25 -14 -11     8  -5    5    0     5  20  -7  -9   -23    4  -3  18 сумма элементов побочной диагонали: -9 меняем местами первый и последний столбцы   -11 -25 -14 -14     0  -5    5    8   -9  20  -7    5   18    4  -3 -23 массив после обмена местами найденных элементов   -11    8 -14 -14     0  -5    5 -25   -9  20  -7    5   18    4  -3 -23