Составить алгоритм для решения : вычислить у=в(в кубе)+(корень из из а)

Program pr; uses crt; var a, b, c, y: real; begin writeln('введите a, b, c'); readln(a, b, c); y: =exp(3*ln(b))+sqrt(c)-sqrt(a); writeln('y=', y); readln; end.

Если я правильно поняла смысл , то нужно найти такое минимальное натуральное  n, при котором указанные значения a и b были бы целыми числами.  тогда могу  предложить такой вариант решения: составим для х и у уравнения пути чертежника, при котором он возвращается в исходную точку (система уравнений): 1)  для х: 52+n*(15+a)-17=0, 2)  для y: -7+n*(22+b)-35=0. выразим в обоих уравнениях a и b через  n : 1) a=-35/n-15 2) b=42/n-22 теперь, чтобы a и b оказались целыми числами, мы должны найти число, на которое 35 и 42 делятся без остатка, то есть нод. итак, n  =  нод(35 и 42) = 7. => 1) a  =  -35/7-15 = -20 2) b  =  42/7-22 = -16 ответ: n=7

1: const n=10; var    min,i: integer;   a: array[1..n] of integer; begin   randomize;   min: =11;   for i: =1 to n do begin     a[i]: =random(1,10);     write (a[i],' '); // для наглядности. можно удалить     if   (i mod 2 =1) and (a[i]< min)        then min: =a[i];       end;   writeln;   writeln ('min = ',min) end. пример: 5 4 7 8 6 2 10 4 9 9  min = 5 2 : const n=10; var    max,count,i: integer;   a: array[1..n] of integer; begin   randomize;   max: =0;   count: =0;   for i: =1 to n do begin     a[i]: =random(1,10);     write (a[i],' '); // для наглядности. можно удалить     if a[i]> max       then max: =a[i];         end;   for i: =1 to n do      if max=a[i] then count: =count+1;   writeln;   writeln ('max = ',max);   writeln ('count = ',count); end. пример: 8 5 3 2 2 10 10 9 3 10  max = 10 count = 3