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

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.