Составьте программу на языке паскаля для нахождения площади круга по диаметру .

На языке Паскаля... Паскаль - это философ?:)

var a: real;
begin
     readln(a);
     writeln(3.14*a*a);
end.

Выше не правильно.
Вот программа:

program 123;
var s,d:real;
begin
readln(d);
s:=pi*(1/4)*d*d;
writeln(s);
end.