program Laba2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
var
   Num, i, LeftSight: Integer;
   RightSight: Real;
   IsCorrect: Boolean;
begin
   IsCorrect := False;
   repeat
      try
         Write('Пожалуйста, введите натуральное число :');
         Readln(Num);
         IsCorrect := True;
      except
         Writeln('Ошибка!Пожалуйста, введите натуральное число');
      end;
   until(IsCorrect);
   LeftSight := 0;
   for i := 1 to Num do
      begin
         LeftSight := LeftSight + i*i;
      end;
   RightSight := (Num * (Num + 1) * (2 * Num + 1)) / 6;
   if LeftSight = RightSight then
      begin
         Writeln('Формула верна');
      end
   else
      begin
         Writeln('Формула верна только для натуральных чисел');
      end;
   Readln;
end.