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

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