HamDongRetardedYesNo

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 }