PMG/Kurs 1214/eigene Übungen/Tom

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
procedure alg(x,y,z:real);
var a,b:real;
begin
a:=1;
b:=0;
for 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;