|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: TextFile
Names: »VARER1.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─ ⟦this⟧ »VARER1.PAS«
PROGRAM varer1;
VAR
nummer : INTEGER;
BEGIN
WRITE(CLRHOM,'Indtast varenummer: '); READLN(nummer);
WRITELN;
IF nummer < 1
THEN WRITELN(nummer : 3, ' er et ulovligt varenummer')
ELSE IF nummer <= 20
THEN WRITE('Vare nummer: ',nummer : 3, ' ligger i varegruppe 1.')
ELSE IF nummer <= 40
THEN WRITE('Vare nummer: ',nummer : 3, ' ligger i varegruppe 2.')
ELSE IF nummer <= 60
THEN WRITE('Vare nummer: ',nummer : 3, ' ligger i varegruppe 3.')
ELSE IF nummer <= 80
THEN WRITE('Vare nummer: ',nummer : 3, ' ligger i varegruppe 4.')
ELSE IF nummer <= 100
THEN WRITE('Vare nummer: ',nummer : 3, ' ligger i varegruppe 5.')
ELSE WRITE(nummer : 3, ' er et ulovligt varenummer');
WRITELN;
END.
«eof»