Question

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

Answer 1

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.