PROGRAM exam;
{pass or
fail an exam} VAR
name : STRING[20];
mark : INTEGER;
BEGIN
WRITE('enter your name ');
READLN(name);
WRITE('enter your mark ');
READLN(mark);
IF mark > 50
THEN
BEGIN
WRITELN('hi ', name);
WRITELN('you scored
', mark);
WRITELN('well done,
you passed')
END
ELSE
BEGIN
WRITELN('sorry ',
name);
WRITELN('you scored
', mark);
WRITELN('you failed,
better luck next time')
END
END.
|