用pascal语言编程(两道题)

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}if sqr(x)+sqr(y)=sqr(r) then writeln('yes') {这个是圆心为原点的圆的标准方程}else writeln('no');end。第二题vars,m,h,i:longint;a:array[1。。100000] of longint;beginreadln(a[1]);{读入a1,用数组读入}readln(m,h);{读入第m项和公差m}s:=a[1];{用s记录从a1到第m项的乘积}for i:=2 to m dobegina[i]:=a[i-1]+h;{计算a[i]的值}s:=s*a[i];{把a[i]乘到s中去}end;writeln(s);{输出从a1到am的积}end。