За Паскал - като свалиш проверката за входно-изходни грешки.
Пример:

var t:real;
..........
{$I-} {Маха се проверката за входно-изходни грешки}
If IOResult <> 0 then Write('Грешка при въвеждането!'); {Правиш собствена проверка на I/O}
{ Ако искаш да разбереш каква точно е грешката трябва да си направиш собствана процедурка, която изследва стойността на IOResult и връща подходящо съобщение. Ако е 0 - всичко е ОК }
{$I+}

В Делфи по-удобно е да обработваш генерираните изключения. Идеята е горе-долу същата.