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;
const N = 6;
var a : array [1..N,1..N] of integer;
i,j,S : integer;
begin
for i := 1 to N do
for j := 1 to N do a[i,j] := i*10 + j;
s := 0;
for i := 1 to N do
for j := 1 to N do
if i >= j then
if not ( (i > (N div 2)) and (j <= (N div 2))) then S:=s+a[i,j];
writeln(s);
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 |
|---|