Если ехать быстрее 90 км в час то тебя штрафанут, иначе ты молодец. паскаль.

Var v:integer;
Begin
Readln (v);
If v>90 then Writeln ('Штраф') else Writeln ('Молодец');
end.