Сколькими способами можно обозначить с букв k, l, m, n обозначить вершины четырехугольника

4*3*2*1=24 варианта можно получить.

Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. но программа работает как надо по вашему . при чем вводить можно даже числа из девяти знаков function checkstr( x: string ): boolean; // это функция, которая проверяет введенное пользователем на то, является ли это целым  положительным числом, а не какими-нибудь буквами begin var k: integer; if length(x) > 0 then begin result : = true; for k : = 1 to length(x) do if not (x[k] in ['0'..'9']) then begin result : = false;     // если пользователь ничего не ввел или ввел не цифры, то будет возвращена ложь end; end; end; var n: string; error, r, i, min: integer; b: array[1..8] of integer; // в - массив, в котором будут храниться все цифры введенного числа begin write('введите целое положительное число: '); readln(n); if checkstr(n) then begin // вызываем нашу функцию на обработку введенных данных r : = length(n); // присваиваем переменной r размер введенной строки val( n[ 1 ], min, error); // конвертирует строковое значение в тип integer и присваиваем минимальному значению  первую цифру for i : = 2 to r do begin val( n[ i ], b[ i ], error ); // конвертируем строковые цифры в integer if ( b[i] < min ) and ( b[i] mod 2 < > 0) then min : = b[i]; // если цифра нечетная и меньше переменной min , то присвоить переменной min значение этой цифры if ( min mod 2 = 0 ) then min : = b[i]; // проверяем на всякий случай еще раз первую цифру end; if ( min mod 2 = 0 ) then writeln('нечетных цифр нет') // если нечетных цифр нет, а наименьшая цифра четная, то говорим, что нечетных цифр  нет else writeln( 'наименьшая нечетная цифра в числе: ', min ); // выводим наименьшую нечетную цифру из числа end else writeln('неверный формат ввода'); // если пользователь вдруг ввел буквы или какие-нибудь каракули вместо целого числа end.

Const   pi=3.14159265;   n=15; var   a,b,h,x,y: real; begin   a: =pi/4; b: =pi/2;   h: =(b-a)/(n-1);   x: =a;   while x< =b+h/2 do { h/2 - компенсация накопления погрешности }   begin       y: =2-sin(x);       writeln(x: 7: 5,y: 8: 5);       x: =x+h   end end. результат выполнения программы: 0.78540 1.29289 0.84150 1.25436 0.89760 1.21817 0.95370 1.18444 1.00980 1.15328 1.06590 1.12478 1.12200 1.09903 1.17810 1.07612 1.23420 1.05612 1.29030 1.03908 1.34640 1.02507 1.40250 1.01413 1.45860 1.00629 1.51470 1.00157 1.57080 1.00000