Составить программу для паскаля даны величины a1 и a2. определить, принадлежит ли точка а(а1,а2) кругу x^2+y^2=16.

Program krug;
  var a1,a2:real;
begin
  write('a1=');readln(a1);
  write('a2=');readln(a2);
  if sqr(a1)+sqr(a2)=16 then writeln('yes') else writeln('no')
end.