Напишите, программы для pascal: 4. вывести на экран первые 4 степени числа . в качестве значения использовать встроенную константу языка. 5. дано число n. проверить истинность высказывания: "число n является точным квадратом".

Var
  i : integer;
  a : real;
begin
  a := 1;
  for i := 1 to 4 do
  begin
    writeln ('pi^', i - 1, ' = ', a);
    a := a * pi;
  end;
end.

var
  n : real;
begin
  read (n);
  if trunc (sqrt (n)) = sqrt (n) then writeln ('YES') else writeln ('NO');
end.