用pascal语言编程(两道题)

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