begin
writeLn;
writeLn;
n:=0;
while n < 999 do
begin
n:=n+1;
a:=n;

ここから下が・・・_| ̄|○