Срочно помогите завтра здавать у кого есть паскаль решите вот это пожайста ну очень очень нужно

 0,00237*10 в Паскале будет  237

т.е например  i:=237; {переменной i присваеваем значение 237}

А 257 так и останется без изменений   i:=257;  {переменной i присваеваем значение 257}   

По поводу команд меню уточни какая версия Паскаля у меня есть только Turbo Pascal 7.0