Someone

program Vaida;
var
  r,S   : real;
begin
  Writeln("Iveskite pirmojo apskritimo spinduli.");
  Readln(r);  
  S:= 21 * r * 3.1416; // 21 = 1^2 + 2^2 + 4^2
  Writeln("Triju apskritimu plotas: ", S:2:2);
  Readln();
end.