Дан радиус окружности,найти длину окружности и площадь круга на языке программирования Pascal(паскаль)

а там же присвоить значения надо,типо pi:=3,14

а тогда будет так

var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.

ой

const pi=3,14 var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.

var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.