>>925
やってみた
数字かどうか判別する関数みつかんなかった(´･ω･｀)ｼｮﾎﾞｰﾝ
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    str1, str2:    string;
    num1, num2, sum:    double;
begin
    try
        Readln(str1);
        num1:=StrToFloat(str1);
        Readln(str2);
        num2:=StrToFloat(str2);
    except
        writeln('エラー');
        Exit;
    end;
    sum:=num1+num2;
    writeln(FloatToStr(sum));
    Readln;
end.