[PASCAL] While..do & Repeat...until

[pdpmpd]

ok, tu volevi il repeat..until (ma per queste funzioni non è affatto utile).

procedure stampa(numero: integer);
var
 cx: integer;
begin
  cx:=1  
  while cx<=numero do begin
    writeln('quadrato di ',cx,' = ',cx*cx);
    inc(cx);
  end;
end;

procedure stampadue(n,m:integer);
var
cx,ctr: integer;
begin
  ctr:=0;
  cx:=n;
  repeat
    inc(ctr,cx);
    inc(cx);
  until cx=m;
  writeln('Somma: ',ctr);
end;