Jestli jsem to správně pochopil.
Doporučuji ti stáhnout si nějakej jednoduchej program "hello world" pro pascal. Mam pocit že je i na wiki...
2) pak bys měl zkusit pozměnit ten prográmek tak, abys načetl svou proměnnou a vypsal jí.
nejlépe nějakej integer
3) obalit ty dvě řádky cyklem, kde bude podmínka že pokud to načtené číslo bude rovné např. 3 tak skončí.
A máš hotovo. Tady na foru to za tebe nikdo nenapíše z čistě výchovných důvodů. Ještě ti asi poradím. Já bych použil cyklus "repeat ... until <podmínka>";.