Почему появляется ошибка: ожидалось имя типа program n_1; const pi=3.14; var r, c, s, real: begin writeln('вычесление длины окружности и площади круга'); write('введение r> > '); readln(r); c: =2*pi*r; s: =pi*r*r; writeln ('с=', с: 6: 4); writeln ('s=', s: 6: 4) end.