Составить программу ** языке pascal abc. По алгоритму (Алгоритм приложен)

Question

Составить программу на языке pascal abc. По алгоритму (Алгоритм приложен)

---

Comments

var a,x,y:real;beginend;beginwrite('a, x, y: ');readln(a,x,y);if x=0 then y:=1 else if x>0 then st(a,x,y) else st(1/a,-x,y);writeln('y = ',y);end.

---

дальше, не выходит

---

без beginend;*, но все равно не выходит

Answer 1

Var a,x,y:real;
procedure st(a,x:real; var y:real);
begin

end;
begin
write('a, x, y: ');
readln(a,x,y);
if x=0
 then y:=1
 else if x>0 then st(a,x,y) else st(1/a,-x,y);
writeln('y = ',y);
end.

Пример:
a, x, y: 1 2 3
y = 3

Comments

Благодарю