Задали нам такую задачку "Используя только литерный ввод, ввести вещественное число, записаное в виде: d.ddE-d,
и присвоить его вещественной переменной У"
ответ нужен до завтра мне в обед уходить ответьти плиз желательно исходником и пояснениями я в долгу не останусь пиво обещаю поставить первому давшему конструктивный ответ но не пойже чем завтра до абеда (к сведению время +5 от гринвича)

Другой вариант:

uses Crt;
var lit : Char;
    y : Real;
    S : String;
    code,count : Integer;
    point : Integer;
begin
     Clrscr;
     S := '';
     count := 0;
     point := 0;
     repeat
       Write('Введите символ:');
       ReadLn(lit);
       if not (lit in ['0'..'9','.','-','+','E']) then begin
         WriteLn('Error');
         Halt;
       end;
       if (lit = '.') then
         inc(point);
       S := S + lit;
       if (point = 1) then
       if (lit = '-') or (lit = '+') then
         inc(count)
       else if (count > 0) then
         inc(count);
     until count = 5;
     Val(S,y,code);
     WriteLn('Полученное число: ',y);
     ReadKey;
end.

большое спасибо как теперь с вами связаться надо же всё таки пиво поставить за помощь putnik-13#@narod.ru(please remove # and sand me письма) :thanks: :flowers: :yes: :low: ;)