Запишите в виде инструкции присваивания формулу вычисления площади круга - Pascal

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

1. Запишите в виде инструкции присваивания формулу вычисления площади круга: s=П*r^1 2. Написать программу, которая проверяет, является ли введенная с клавиатуры строка дробным числом. (искал на форуме, этих заданий не нашел, были похожие, но я не знаю как их сделать)

Решение задачи: «Запишите в виде инструкции присваивания формулу вычисления площади круга»

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

var a,d,i:integer;
begin
setwindowsize(400,400);
centerwindow;
a:=400 div 32;
d:=a;
setbrushstyle(bsClear);
for i:=1 to 8 do
 begin
  rectangle(200-a,200-a,200+a,200+a);
  a:=a+2*d;
 end;
end.

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

Объявляются переменные a, d, i типа integer.
Устанавливается размер окна на 400x400.
Окно центрируется.
Переменной a присваивается значение выражения 400 div 32, то есть результат целочисленного деления 400 на 32.
Переменной d присваивается значение переменной a.
Устанавливается стиль заливки bsClear (без заливки).
Запускается цикл от 1 до 8.
Внутри цикла отрисовывается прямоугольник с координатами (200-a,200-a) и (200+a,200+a).
Значению переменной a прибавляется удвоенное значение переменной d.