Question

mam napisać program spełniający rolę kalkulatora dokonywującego obliczeń za pomocą procedór . program ma umożliwic 5 działań matematycznych sumę różnicę iloczyn iloraz i potęgę
mam coś takiego i nie potrafie błędu wyszukac pomóż

program Untitled;

procedure suma(x,y:integer);
var
i,s:integer;
begin
writeln('suma=',x+y);
end;
procedure roznica(x,y:integer);
begin
writeln('roznica=',x-y);
end;
procedure iloczyn(x,y:integer);
begin
writeln('iloczyn=',x*y);
end;
procedure iloraz(x,y:integer);
begin
writeln('iloraz=',x/y);
end;
procedure potega(x,y:integer);
begin
s:=1
for i:=1 to y do
s:=s*x;
writeln(s);

end;
var
a,b,c,d,e,f,g,h,i,j:integer;
begin
writeln('podaj 1 liczbe');
readln(a);
writeln('podaj 2 liczbe');
readln(b);
suma(a,b);
readln(c);
readln(d);
roznica(c,d);
readln(e);
readln(f);
iloczyn(e,f);
readln(g);
readln(h);
iloraz(g,h);
readln(i);
readln(j);
potega(i,j);
readln;

end.

Answer 1

procedure potega(x,y:integer);

var i,s:integer;           <--- dopisz ta linie
begin
s:=1;                           <---- tutaj na koncu potrzebny srednik
for i:=1 to y do
s:=s*x;
writeln('potega=',s);     <----- tutaj jeszcze dopisz 'potega=', z przecinkiem (bedzie ladnie)
end;

 

i u mnie dziala.

dodatkowo mozesz dodac

writeln('podaj 1 liczbe');      <--- przed readln c e g i

oraz

writeln('podaj 2 liczbe');     <--- przed readln d f h j,  bo przed a i b masz to czemu potem nie ma