Felhasználói értékig futó for iterációk pascalban