function min(a, b, c, d: integer): integer; var r: integer; begin r := a; if (b<r) then r := b; if (c<r) then r := c; if (d<r) then r := d; max := r; end;
Ceva de genul, posibil sa fie gresita sintaxa pe undeva, dar cred ca te descurci sa faci fix ;)
