code. compile. run. debug. share.
{
Online Pascal Compiler.Code, Compile,
Run and Debug Pascal program online.Write your code in this editor and
press "Run" button to execute it.}
program Hello;
var a:integer;
function N (i, Max:integer):real;
begin
if i<=Max then N:=sqrt(i+N(i+1,Max));
end;
begin
a:= 5;
writeln ('n=', a);
writeln (N (1, a): 3:3);
end.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|