Написать программу ввода 30 элементов одномерного массива, введенных случайным образом.

Var
  x, y, rx, ry: real;
  n: integer;
  s: string;

begin
  writeln('Введите два положительных числа');
  readln(x, y);
  writeln('Введите код операции от 1 до 4');
  readln(n);
  case n of
    1: begin rx := sin(x); ry := sin(y); s := 'sinX' end;
    2: begin rx := cos(x); ry := cos(y); s := 'cosX' end;
    3: begin rx := tan(x); ry := tan(y); s := 'tgX' end;
    4: begin rx := 1 / tan(x); ry := 1 / tan(y); s := 'ctgX' end;
  else begin rx := 0; ry := 0; s := '???' end
  end;
  writeln('Результаты для ', s, ': ', rx, ', ', ry)
end.

Тестовое решение:

Введите два положительных числа
4 5
Введите код операции от 1 до 4
2
Результаты для cosX: -0.653643620863612, 0.283662185463226

Uses crt;
var i,zi,zj:integer;
    s,n:String;
begin
clrscr;
repeat
writeln('Введите строку не больше 20 символов.');
readln(s);
until length(s) <=20;
for i:=1 to length(s) do
begin
if (s[i] = 'm') or (s[i]='м') then
 begin
      n:=copy(s,i,3);
      if n = 'max' then begin n:='min'; delete(s,i,3); insert(n,s,i); zi:=zi+1; end
      else
      begin
      n:=copy(s,i,4);
        if n = 'Макс' then begin n:='Мин'; delete(s,i,4); insert(n,s,i); zj:=zj+1; end; 
      end;
end;
end; 
if (zi <> 0) or (zj <> 0) then writeln('В строке заменено ',zi,'раз. слово "max".  А слово "макс" ',zj,'  раз.')
else writeln('В строке не найдено совпадений для замены...');
writeln;
writeln(s);
Readkey;
end.