Напишите на паскале программу, вычисляющую длину окружности, площадь круга одного и того же радиуса по формулам: c = 2пр, s=пр²

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