Помогите найти ошибку в задаче!!! Паскль изучаю всего лишь день и самостоятельно, так что прошу не грузить меня заумными словами!!
Задача: Радиус окружности равен 800. Вычеслить длину и площадь окружности. Результаты печатать с 5 знаками после десятичной точки.
Вот мой пример решения задачи:

var Rad: integer;
s,l: real;
begin
Rad:=800;
L:=2*Pi*Rad;
S:=Pi*sqr(Rad);
writeln(L :20:5);
writeln(S :20:5)
end.

Ответ выдаваемый паскалем
5026.54825
-48254.86316
Но площадь совсем не такая!!! Что не так????