prima procedura (stampa i quadrati da 0 a numero), il numero da tastiera lo acquisisci dal prog. principale:
codice:
procedure stampa(numero: integer);
var
 cx: integer;
begin
  for cx:=1 to numero do
    writeln('quadrato di ',cx,' = ',cx*cx);
end;
seconda procedura
codice:
procedure stampadue(n,m:integer);
var
cx,ctr: integer;
begin
  ctr:=0;
  for cx:=n to m do inc(ctr,cx);
  writeln('Somma: ',ctr);
end;