有错误
1.第五行是writeln(p);
2.最后一行end前面有空格，这对程序运行没关系，我有点强迫症

应该是writeln(p);

然而writeln之后为什么要空格……

用byte不用integer真的很奇怪

居然不是hello world真的很奇怪

byte会爆吧？

然而不要在意这些细节只是新人

。。。

正规的应该这么写
var
p:longint;
begin
p:=100;
writeln(p);
readln;
end.

最正规的应该这么写：
type ListHighTYPE=array[1..500000000] of word;
var p:ListHighTYPE;
procedure writelntype(p:listhightype);
begin
with p do begin
……省略
end;
end;
function intotype(a:pchar):writelntype;
……省略
begin
p:=intotype('100');
writelntype(p);
readln;
end.

win7差评

正规什么你们都没加program

小括号。。

然而这样不是更简单么
begin
writeln(100);
end.

是writeln(p);,(write(p);).