Составить программы

[adema11]

нужно составить 2 программы по след условиям:

1)Для заданного натурального числа N составить программу вычисления выражения S= 1+√2+√3+√4+…+√n (то есть сумма корней)

2)Точка плоскости задана своими координатами (х; у). Составить программу, определяющую, принадлежит ли она кругу с радиусом 4 и с центром в точке с координатами (2; 2).

Заранее спасибо...

[_-Re@l-_]

Первая:

var i,n:integer;
     s:real;
begin
       readln(n);
       s:=0;
       for i:=1 to n do
       s:=s+sqrt(i);
       write('s = ');
       readln;
end.

Вторая :

uses crt;
var x,y:real;
begin
        clrscr;
        readln(x,y);
        if sqr(x-2)+sqr(y-2)<=16 then
        writeln('Да')
        else writeln('Нет');
        readln;
end.

From Stilet: Не плоди посты подряд. Лучше подредактируй предидущий если он последний и есть такая возможность.