sqrt2+sqrt2....+sqrt2 N- корней . составьте программу по условию пожалуйста

var b,n:integer;
a:real;
begin
Writeln('skolko raz');
readln(n);
a:=0;
for b:=1 to n do
a:=a+sqrt(2);

writeln(a);
end.

var i,S: integer;
begin
s:=0;
for i:=1 to N do
S:=S + sqrt(2);
end;