tipul de date subprogram

Subprogramele sunt părţi ale unui program, identificabile prin nume, care se pot activa la cerere prin intermediul acestor nume.

Problema:
 De la tastatură se citește un careva numar ''S''. De înscris în fișier toate modurile de reprezentare a acestui numar cu 3 și 5.

Uses CRT;
Var N:Integer;
Procedure Scrie (N:Integer);
Var F:Text;  x,y:Integer
Begin
       Assign(F,'date.out'); Rewrite (F);
For x:=0 To N div 3 Do
For y:=0 To N div 5 Do
If x*3+y*5=N then Writeln (F,x,'de 3',y,'de 5');
Close (F) end;
Begin ClrScr;
Write ('N=');
Read (N);
Scrie (N)'
end.