1
2
3
4
5
6
7
8
9
program progname;
const
  rows = 5;
  cols = 5;
type
  TArr = array[1..rows, 1..cols] of Integer;
var
  arr: Tarr;
  i, j, l, tmp: Integer;
 ...

1
2
3
4
5
6
7
8
9
program progname;
const
  rows = 5;
  cols = 5;
type
  TArr = array[1..rows, 1..cols] of Integer;
var
  arr: Tarr;
  i, j, l, tmp: Integer;
 ...

1
2
3
4
5
6
7
8
9
var
  number: longint;
  low,high:Integer;
begin
  {$APPTYPE CONSOLE}
  write('Enter number>0');
  Readln(number);
  high:=31;
  low:=0;
 ...

1
2
3
4
5
6
7
8
9
uses
 crt;
var
 x:string;
begin
 while not eof(input) do
 begin
    readln(x);
    writeln(x);
 ...

1
2
3
4
5
6
7
8
9
uses
 crt;
var
 x:string;
begin
 clrscr;
 while not eof(input) do
 begin
    readln(x);
 ...

1
2
3
4
5
6
7
8
9
uses
 crt;
var
 x:string;
begin
 clrscr;
 while not eof(input) do
 begin
    readln(x);
 ...

1
2
3
4
5
6
7
8
9
uses
 crt;
var
 x:string;
begin
 clrscr;
 while not eof(input) do
 begin
    readln(kalimat);
 ...

1
 

1
2
3
4
5
6
7
8
9
PROGRAM Macierz;
 
USES crt;
 
TYPE
 pointer=^matrix;
 matrix = RECORD
   ROW          :integer;
   COL          :integer;
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n,m);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
begin
{ a }
(* b *)
(* c }
{ d *)
{e { f } }
{g  (* h *) }
//{i (* j } *)
(* k { l } *)
 ...

1
2
3
4
5
6
7
8
9
begin
{ a }
(* b *)
(* c }
{ d *)
{e { f } }
{g  (* h *) }
//{i (* j } *)
(* k { l } *)
 ...

1
2
3
4
5
6
7
8
9
begin
{ a }
(* b *)
(* c }
{ d *)
{e { f } }
{g  (* h *) }
{i (* j } *)
(* k { l } *)
 ...

1
2
3
4
5
6
7
8
9
begin
{a}
(*b*)
(*c}
{d*)
{e {f}}
{g  (*h*)}
{i (*j}*)
(*k {l}*)
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n,m);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n,m);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n,m);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
var a, k : integer;
  begin
  a := 40;
    for k := 2 to 5 do
    a := a – k;
  write(a);
end.

1
2
3
4
5
6
7
var a, k : integer;
  begin
  a := 40;
    for k := 2 to 5 do
    a := a – k;
  write(a);
end.

1
2
3
4
5
6
7
8
9
var a, k : integer;
 
  begin
 
  a := 40;
 
    for k := 2 to 5 do
 
    a := a – k;
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n,m);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n,m);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
var
N,m,i,j:longint;
A:array[0..100] of longint;
Begin
Read(n);
For i:=1 to m do a[i]:=i;
J:=n;
While j>0 do
Begin
 ...

1
2
3
4
5
6
7
8
9
uses
  crt;
var
  kal:string;
begin
  while not eof(input) do
  begin
    readln(kal);
  end;
 ...

1
2
3
4
5
6
7
8
9
uses
  crt;
var
  kal:string;
begin
  while not eof(input) do
  begin
    readln(kal);
    writeln(kal);
 ...

1
2
3
4
5
6
7
8
9
uses
  crt;
var
  kal:string;
begin
  while not eof(input) do
  begin
    readln(kal);
    writeln(kal);
 ...

1
2
3
4
5
6
7
8
9
uses
  crt;
var
  kal:string;
begin
  clrscr;
  while not eof(input) do
  begin
    readln(kal);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
 var x:byte;
 
 begin
      readln(x);
      while x<>42 do
       begin
            writeln(x);
 ...

1
2
3
4
5
6
7
8
9
uses
  crt;
var
  x:integer;
begin
  clrscr;
  readln(x);
  case x of
    1..9: writeln('satuan');
 ...