2)короч второе где комментарий, если именно коментарий то он пишется через // но у тебя другой прикол тебе надо,когда будет вводить переменные должен заменить словами введите сторону a видишь где у тебя write('a=')
заместо этого напиши в кавычках Введите сторону a= ниже у тебя идет с S сделай тоже самое, это же изи.
3)var
r: real; S: real;
begin
write('Введите радиус круга: ');
readln(r);
S:=3,1415*sqr(r);
writeln('Площадь круга равна ',S);
end.