Pascal - ожидался идентификатор, помогите найти ошибку

Question

program _1; 
var 
pi,r,Vsh,s,:real; 
begin 
Writeln(''); 
Writeln(''); 
 write('pi'); 
 readln(pi); 
 write('r'); 
 readln(r); 
 Vsh:=3/4*pi*sqr(r)*r; 
 s:=4*pi*sqr(r); 
 writeln('',Vsh); 
 writeln('',s); 
end. 
на 3строке ошибка

Максим · Accepted Answer

после S в строке pi,r,Vsh,s,:real; не должно быть запятой или должен быть еще ОДИН ИДЕНТИФИКАТОР