Написать функцию в pascal со следующим кодом: а то я немного запутался( function test(a, b, c: real): real; begin test: =sqrt(2*a + b - c); end;

Var i: integer; begin // с for for i : = 1 to 5 do write(i,' '); writeln;   for i : = 5 downto 1 do write(i,' '); writeln; writeln;   // с while i : = 1; while i< =5 do begin write(i,' '); i : = i + 1; end; writeln;   i : = 5; while i> =1 do begin write(i,' '); i : = i - 1; end; writeln; writeln;   // с repeat i : = 1; repeat write(i,' '); i : = i + 1; until i> 5; writeln;   i : = 5; repeat write(i,' '); i : = i - 1; until i< 1; writeln; end.вывод последовательности 1 3 5 7 9 var i,x: integer; begin // с for и промежуточной переменной x : = 1; for i : = 1 to 5 do begin write(x,' '); x : = x + 2; end; writeln;   // с for без промежуточной переменной for i : = 1 to 5 do write(2*i-1,' '); writeln;   // с while x : = 1; while x< 10 do begin write(x,' '); x : = x + 2; end; writeln;   // с repeat x : = 1; repeat write(x,' '); x : = x + 2; until x> =10; end.сумма и произведение введенных чиселкод на pascal var i: integer; s,p: real; x: real; begin writeln('введите 10 чисел: '); s : = 0; p : = 1; for i : = 1 to 10 do begin read(x); s : = s + x; p : = p * x; end; writeln('сумма введенных чисел = ',s); writeln('произведение введенных чисел = ',p); end.код на pascalabc.net var s,p: real; begin writeln('введите 10 чисел: '); s : = 0; p : = 1; for var i : = 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('сумма введенных чисел = ',s); writeln('произведение введенных чисел = ',p); end.вычисление n! код на pascal var n,fact: integer; i: integer; begin write('введите n (n< =13): '); readln(n); fact : = 1; for i : = 2 to n do fact : = fact * i; writeln(n,'! = ',fact); end.код на pascalabc.net var n: integer; begin write('введите n (n< =13): '); readln(n); var fact : = 1; for var i : = 2 to n do fact *= i; writeln(n,'! = ',fact); end. вычисление anкод на pascal var n,i: integer; a,p: real; begin write('введите a,n: '); readln(a,n); p : = 1; for i : = 1 to n do p : = p * a; writeln(a,' в степени ',n,' = ',p); end.код на pascalabc.net var n: integer; a: real; begin write('введите a,n: '); readln(a,n); var p : = 1.0; for var i : = 1 to n do p *= a; writelnformat('{0} в степени {1} = {2}',a,n,p); end.

Для этого подходит Cup Cut(Сорри за ошибки) Я уже в этом приложении 1 год) С 1 секунды поняла что и как нужно делать)