Как вычислить алгоритмом турбо паскаля площадь круга и периметр квадрата?

Смотря как задается круг квадрат
S=пиR^2
P=4a

Так же как и математикой. Напиши сначала формулы вычисления в математическом виде, а потом преобразуй по правилам синтаксиса паскаля.

const
PI = 3.1415926;
var
StoronaKvadrata, RadiusKruga:real;
PloshadKruga, PerimeterKvadrata:real;
begin
writeln('Введите стороны квадрата: ');
readln(StoronaKvadrata);
writeln('Введите радиус круга: ');
readln(RadiusKruga);
PloshadKruga := 2*PI*RadiusKruga;
PerimeterKvadrata := 4*StoronaKvadrata;
writeln('Площадь круга = ',PloshadKruga);
writeln('Периметр квадрата = ', PerimeterKvadrata);
read;
end.

- Площадь круга.. . площадь круга.. . Два пи эр.
- Кем работаешь, подруга? - ИТР.. .

:))