Легкая задачка в Turbo Pascal

Question

Uses crt; 
function summa(b:longint):longint; 
var 
d,a,c:longint; 
begin 
summa:=0; 
if b>0 then 
begin 
c:=2; 
a:=1; 
d:=((a+b)*b) div 2; 
summa:=d; 
end; 
if b<0 then 
begin 
a:=-1; 
d:=((b+a)*abs(b) div 2)+1; 
summa:=d; 
end; 
if b=0 then 
begin 
d:=1; 
summa:=d; 
end; 
end; 
var 
b:longint; 
f,g:text; 
begin 
assign(f,'INPUT.TXT'); 
reset(f); 
read(f,b); 
 
assign(g,'OUTPUT.TXT'); 
rewrite(g); 
write(g,summa(b)); 
close(g); 
end.

выводит на сайте программирования ошибку компиляций хотя у меня работает отлично

Максим Комаров · Accepted Answer

На кой ты объявляешь СиАрТи, если ни где в программе не используешь… <img src="//sprtqa.b-cdn.net/download/4f352857f579740ed86668d03225774d_i-562.jpg" >

Айбек Осмонов · Answer

Там в хелпе глянь какой у них паскаль и какой у тебя.