Программу для расчёта площади окружности

[ArtInt]

Вот код на Дельфи и файл скомпилированный. Думаю вопрос решен.
Только в моем варианте
S:= Pi*sqr(R*R);

[Вавел из ГМТУ]

function Plowad(R: real): real;
var
  S: real;
begin
  S:= Pi*sqr(R*R); // ????
  result:= S;
end;

[ArtInt]

Сообщение от Вавел из ГМТУ

function Plowad(R: real): real;
var
  S: real;
begin
  S:= Pi*sqr(R*R); // ????
  result:= S;
end;

Извиняюсь действительно что то заработался не надо там два раза радиус.
Обновил исходник.
Хотя и так все понятно думаю.

[Rostbook]

Спасибо, сейчас я всё посмотрю, на счёт мобилки, пиши в личку и давай номер мне свой

[Rostbook]

отправил на почту