delphi控制台怎么看结果

delphi控制台程序怎么看不到结果啊
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a,b,c,d:real;
function pp(a,b,c,d:real):real;
begin
result:=a+b+c+d;
end;
begin

read(a,b,c,d);
writeln(pp(a,b,c,d));

readln;

end.
怎么加了readln;还是看不到4个数和的结果

---

是否还需要一个floattostr函数。

---

Program Project2;

{$APPTYPE CONSOLE}

Uses
SysUtils;
Var
a, b, c, d: real;

Function pp(a, b, c, d: real): real;
Begin
result := a + b + c + d;
End;
Begin
Read(a, b, c, d);
Writeln(floattostr(pp(a, b, c, d)));//这里是楼扮历上建议厅配搜的
Readln(a);//卖州这里是关键
End.

---