Листинг программы

program z47;

{ Можно ли заданное натуральное число M представить

  в виде суммы двух квадратов натуральных чисел.   }

uses crt;

var i,j,m:longint;

 begin

  clrscr;

   write('Введите число:');readln(m);

   for i:=1 to round(sqrt(m))+1 do

    for j:=1 to round(sqrt(m))+1 do

     if i*i+j*j=m then begin

                        write('Можно! Числа: ',i,' и ',j);

                        readln;halt;

                       end;

   write('нельзя');

  readln;

 end.