Najdi perfektní čísla, čtverce a krychle

perfetto.pas

program perfetto;

var
  i, n, sum: Integer;
  sqr, cube: Boolean;

begin
  read(n);
  sum := 1;

  for i := 2 to (n div 2) do begin
    if n mod i = 0 then
      sum := i + sum;
    if i * i = n then
      sqr := True;
    if i * i * i = n then
      cube := True;
  end;

  if sum = n then
    write('P');
  if sqr then
    write('C');
  if cube then
    write('K');
end.

perfetto.pas.md

program perfetto;

var i, n, sum: Integer; sqr, cube: Boolean;

begin read(n); sum := 1;

for i := 2 to (n div 2) do begin if n mod i = 0 then sum := i + sum; if i * i = n then sqr := True; if i * i * i = n then cube := True; end;

if sum = n then write('P'); if sqr then write('C'); if cube then write('K'); end.