procedure alg(x,y,z:real); var a,b:real; begin a:=1; b:=0; while z>0 do begin a:=a*x; z:=z-1; end; if ((x-y)>0) then begin b:= x-y ; //writeln ((a) + (b)); end else b:= y-x end;
alg(3, 4, 5);
ausführen
