ПРОГРАММА НА PASCAL!

Дано натуральное число m представить в виде сумме квадратов двух натуральных чисел. Выдать сообщение, если такое представление невозможно

И строку if m<0 then write('Вы ввели некорректное число') else  лучше заменить на И строку if m<=0 then write('Вы ввели некорректное число') else 

тогда ноль тоже не будет считать

все понял, спасибо )

var i,n,k,m: integer;    priz: boolean;begin  write('N = ');  readln(n);  priz:=true;  for i:=1 to round(sqrt(n)) do  begin    k:=n-i*i;    if (k mod 10) in [1,4,5,6,9] then    begin      m:=round(sqrt(k));      if m*m=k then      begin        writeln('число ',n,' равно сумме квадратов чисел ',i,' ',m);        writeln(n,' = ',i*i,' + ',m*m);        priz:=false;        break;      end;    end;  end;  if priz then  writeln('число ',n,' не равно сумме квадратов двух чисел');en

Последняя строка не вошла - end.   На тестовой задаче :   N = 369число 369 равно сумме квадратов чисел 12 15369 = 144 + 225

Programm Pozitiv;varm,m1,m2 ,result:real;beginclrscr;write('Введите число');Read(m);if m<0 then write('Вы ввели некорректное число') elsebeginm1:=m*m;m2:=m1;result:=m1+m2;write('Ответ:',result);end;end.