code. compile. run. debug. share.
Source Code
Language
program Hello;
function isPrime(n: Integer): Boolean;
var
i: Integer;
begin
if n < 2 then
isPrime := False
else
begin
i := 2;
while i*i <= n do
begin
if n mod i = 0 then
begin
isPrime := False;
Exit;
end;
i := i + 1;
end;
isPrime := True;
end;
end;
var
name: String;
number: Integer;
begin
Write('What is your name? ');
ReadLn(name);
WriteLn('Hello, ', name, '!');
Write('What is your favorite number? ');
ReadLn(number);
Write('Your favorite number is ', number);
if isPrime(number) then
WriteLn(', and that''s a prime number!')
else
WriteLn('. It''s not a prime number, but that''s okay!');
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 |
|---|