Написать программу, реализующую диалог с пользователем: предлагающую выбрать один из следующих вариантов расчета: 1 - расчет тригонометрической функции 2 - расчет квадрата числа 3 - расчет корня числа по нажатии клавиши 1 пользователю предлагаются следующие варианты: s - расчет синуса c - расчет косинуса t - расчет тангенса после выбора соответствующего пункта меню пользователю предлагается ввести число, по которому необходимо провести расчет и после расчета выводится значение. в случае, если пользователь выбрал несуществующий пункт меню ему выдается сообщение об ошибке.

var x: real; c: char; beginreadln(c); readln(x); if c='1' then beginreadln(c); if c='s' then writeln(sin(x)); if c='c' then writeln(cos(x)); if c='t' then writeln(sin(x)/cos(x)); end elseif c='2' thenwriteln(sqr(x))elseif c='3' thenwriteln(sqrt(x)); end.

Const   n = 10; var   a: array[1..n] of integer;   i: integer; function sum: integer; var   tmp, prev, cur, s, i: integer;   flg: boolean; begin   s : = 0;   for i : = 1 to n do   begin       flg : = true;       tmp : = a[i];       prev : = 9;       cur : = 0;       while tmp > 0 do       begin           cur : = tmp mod 10;           if cur > prev then           begin               flg : = false;               break;           end;           prev : = cur;           tmp : = tmp div 10;       end;       if flg then inc(s);   end;   sum : = s; end; begin   writeln('исходный массив: ');   for i : = 1 to n do   begin       a[i] : = random(1000);       write(a[i], ' ');   end;   writeln;   writeln('ответ: ', sum); end.

//pascalabc.net 3.0 (*задать одномерный массив из 50 целочисленных элементов, с цикла repeat until вывести на экран те элементы которые с индексом позиции* )var mas : array [1..50] of integer;     i: integer; begin  for i: =1 to 50 do      mas[i] : = random(50)+1;   writeln('массив: ');     for i: =1 to 50 do      write(mas[i],' ');   writeln;     writeln('элементы, с индексом позиции: ');       i : = 1;     repeat      if (mas[i] = i) then      write(mas[i],' ');     inc(i)  until i = 50;   end.