составить программу нахождения плошади круга по его радиус который вводят с клавиатуры. в Pascal

Вот пример программы на языке Pascal для нахождения площади круга по его радиусу, который вводит пользователь с клавиатуры:

pascal
program CircleArea;

uses
  crt;

var
  radius, area: real;

begin
  clrscr;
  
  { Запрашиваем у пользователя радиус круга }
  writeln('Введите радиус круга:');
  readln(radius);
  
  { Вычисляем площадь круга по формуле S = π * r^2 }
  area := 3.14159 * radius * radius;
  
  { Выводим результат }
  writeln('Площадь круга с радиусом ', radius:0:2, ' равна ', area:0:2);
  
  readln;
end.

В этой программе:

1. Пользователь вводит радиус круга.

2. Программа вычисляет площадь круга по формуле $S = \pi r^2$, где $\pi$ приравнивается к 3.14159.

3. Результат выводится на экран с точностью до двух знаков после запятой.