Вычислить длину окружности и площадь круга - Turbo Pascal

Формулировка задачи:

Радиус окружности равен 800. Вычислить длину окружности и площадь круга. Результаты печатать до 5-го знака.

uses Crt;
Var r: integer;
       L, Pl: real;
begin
ClrScr;
    r:= 800;
    L:= 2 * Pi * r;
    Pl:= Pi * Sqr(r);
WriteLn(' Длина окружности: ' , L:6:5);
WriteLn(' Площадь круга: ' , Pl:6:5);
    ReadLn
end.

На выходе имеем:

Длина окружности:  5026.54825
Площадь круга:  -48254.86316

Что за чудеса – площадь круга неверная, да ещё и отрицательная. Очень интересно. Почему же так?

Решение задачи: «Вычислить длину окружности и площадь круга»

Листинг программы

    Pl:= Pi * r * r;

Объяснение кода листинга программы

В данном коде происходит вычисление длины окружности и площади круга.

Pi — это константа, которая равна 3,14159.
r — это радиус круга, который в данном коде не имеет значения и его значение не используется.
Pl — это площадь круга, которая вычисляется как произведение числа Пи на квадрат радиуса круга.