В Program пишет, что ожидался идентификатор. Подскажите, как исправить. Заранее спасибо.

Program 1.10.b;
var a, b: integer;
begin
read(a);
if a=1 then b:=sqrt(a);
write(' Ответ: ');
end.