Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program HamDongRetardedYesNo;
- Var
- ActualIQ : Integer;
- PossibleIQ : Integer;
- PercentageIQ : Real;
- Begin { HamDongRetardedYesNo }
- Writeln ('Please type the student''s actual IQ: ');
- Readln (ActualIQ);
- Writeln ('Please type the total possible IQ of the exam : ');
- Readln (PossibleIQ);
- PercentageIQ := (ActualIQ / PossibleIQ) * 100;
- If (PercentageIQ >= 70) Then
- Begin
- Writeln;
- Writeln ('Retarded Yes');
- End
- Else
- Begin
- Writeln;
- Writeln ('Retarded Yes');
- End;
- { EndIf }
- End. { HamDongRetardedYesNo }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement