关于Turbo Pascal的问题

Write（x）后面是绝对有“；”的！
输入时直接由空格隔开就是了！
例如：1 2 3 然后回车！
测试程序就是crtl+F9!
然后就是部分标识符要大写，注意空格！（虽说不会影响结果，但也是规范问题）！
还有，最后Write（x）最好改为WriteLn（x）如果多运行几次，感觉很乱！
运行完毕后，会直接退出，想看答案还得按Alt+F5；所以建议在End前面加上ReadLn；便可直接看到结果，回车退出！
还有，因为我们变量设置的是实型（Real），所以，输出的会是科学计数法表示；所以建议加上场宽（格式WriteLn（x:0:2）保留俩位小数），输出的是普通表示方法了！
修改后的程序：
Program Po(Input,Output);
Var a,b,c,x:Real;
Begin
Read(a,b,c);
x := (a+b+c)/3;
WriteLn(x:0:2);
ReadLn;
End.
我这里是可以运行的，你试试吧！
望采纳！谢谢！

首先，你write（x）少了个“;”
然后，你用的是read，所以是一行内输入的，数据之间用空格空开。
建议：你在x后面加个:0:0因为你是用real的，所以输出是用科学计数法，：0：0是场宽，第一个：0是小数点后面保留几位小数，你如果要保留X位小数就用：x：0.
还有，最好用writeln，如果你2次运行的话数据就会混在一起，就有点乱。

输入方法是：
1898 1265 1235
（回车）
就行了

最后的END写错了，是END不是EDN，write（x）不加‘；’是可以的。
你要先保存，然后再ctrl+F9运行，如果你看见黑色屏幕，那么就对了，你可以直接输入三个数，中间用空格分开，输入完了再敲回车，然后你会看到答案，退出。
因为他会自动退出，所以你可以改一下你的程序：
readln（a,b,c）;
x:=(a+b+c)/3;
writeln(x:0:0); {那个：0:0 可以不加的，但是输出比较难看啊}
readln;
end.
这样你在看到答案后，按一下回车就会自动退出。但是你的输入就必须在同一行里，否则会错误。