} P, X, K : Real; { Ütleme, et P, X ja K on reaalarvu tüüpi muutujad.} Begin { Põhiprogrammi algus } Read(P, X); { Sisesta P ja X } K := (100/P)*X; { 'Andmetöötlus' } Writeln(K); { Väljasta tulemus } End. { Põhiprogrammi lõpp. NB! Lõpus peab olema punkt! } Viiba esitamist keele Pascal standardses sisestusprotseduuris ei ole ette nähtud. Selleks tuleb kasutada väljastusprotseduuri abi. Sisestusprotseduur READ loeb sisendvoost üksteisele järgnevaid sümboleid ja ei arvesta nende paiknemist ridadel. See tähendab, et käsk READ(A,B,C), kus A, B ja C on täisarvutüüpi muutujad, loeb ühesuguse tulemusega mõlemaid sisestusvariante: 1) Programmeerimise algkursus 31 - 89 12 569 -5 2) 12 569 -5 Sisestusprotseduur READLN loeb sisendvoost muutujatele vajalikud väärtused ja viib
} Begin { Põhiprogrammi algus } Read(P, X); { Sisesta P ja X } K := (100/P)*X; { 'Andmetöötlus' } Writeln(K); { Väljasta tulemus } End. { Põhiprogrammi lõpp. NB! Lõpus peab olema punkt! } 36 / 115 Viiba esitamist keele Pascal standardses sisestusprotseduuris ei ole ette nähtud. Selleks tuleb kasutada väljastusprotseduuri abi. Sisestusprotseduur READ loeb sisendvoost üksteisele järgnevaid sümboleid ja ei arvesta nende paiknemist ridadel. See tähendab, et käsk READ(A,B,C), kus A, B ja C on täisarvutüüpi muutujad, loeb ühesuguse tulemusega mõlemaid sisestusvariante: 1) 12 569 -5 2) 12 569 -5 Sisestusprotseduur READLN loeb sisendvoost muutujatele vajalikud väärtused ja viib sisselugemise järjekorra edasi järgmisele "reale". Seega käsk
annaabi.ee 
