(*	Ensimmäinen esimerkki Pascal -ohjelmasta.
	Nämä alussa olevat rivit ovat kommenttirivejä. *)
	
{	Tyhjä rivikin on kommentti ja myös aaltosulkeiden 
	välinen osa on kommentoitu. 
	
	Muista, että Pascal ei erottele isoja ja pieniä kirjaimia, joten muuttujanimet
	x ja X viittaavat samaan muuttujaan.

	Ohjelmalohko on BEGIN ja END -lauseiden välinen osa ja 
	lohkot voivat sisältää toisia lohkoja.
	}

(* Ohjelman nimi *)
PROGRAM terve;
	(* Muuttujien esittelyt kaksi kokonaislukumuuttujaa ja merkkijono *)
	VAR kertaa,laskuri,ylim:INTEGER;
	VAR tulos: PACKED ARRAY[1..6] OF CHAR; 

(* Ohjelman runko *)
BEGIN
	(* Sijoitetaan merkkijonomuuttujaan tulostettava jono *)
	tulos := 'terve!';
	WRITELN('Kuinka monta kertaa tulostetaan?');

	(* Luetaan muuttujalle kertaa arvo *)
	READ(kertaa);

	(* Toistetaan tulostus annetun monta kertaa *)
	FOR laskuri := 1 TO kertaa DO
	BEGIN
		WRITELN(tulos);
	END;
END.