Решите задачу по Паскале плизз.
Смотрите скрин

Var
  i: integer;
  ar: array[1..3]of integer;
procedure PS(a: integer);
var
  P: Integer;
  S: Real;
begin
  P := 3 * a;
  S := sqrt(3) / 4 * sqr(a);
    writeln(P, , S:0:6);
end;
 begin
  readln(ar[1], ar[2], ar[3]);
for i := 1 to 3 do PS(ar[i]);
end.