drage0

program zN; { UBACI IME PROGRAMA OVDE }
var
  g, p: real; {G: novac(gold), P: procenat}
begin
  { Pocetne vrednosti, nije neophodno }
  g := 0;
  p := 0;
  
  { Ucitaj podatke, prvo kolicinu novca pa procenat }
  write('Pocetna kolicina novca: ');

drage0

program game0;

{ VARIABLE,s }
const
     buffer_size = 8;
type
    c_string = Array [1..buffer_size] of char;
var
  p0_name       :c_string;
  p0_type       :char; {'w' warrior, 'r' ranger, 'm' mage}

drage0

program z22;
var dan, mesec, godina: integer;

function prestupna(n: integer): boolean;
begin
  prestupna := false;
  if(((n mod 400) = 0)) or ( (not ((n mod 100) = 0)) and ((n mod 4)=0)) then begin
    prestupna := true;
  end;
end;

drage0

--[[ Opens and closes the doors.
     'id' is the indentifier, 
        starting from 0 as 
        the first one.
     'status' "ture" or "false"
        Defines should the door
        be open --]] 
function doorTrigger(id, status)
  animation = "Open";
  if (status == false) then animation = "Close"; end

drage0

program c;
var n, m, i: integer;
function brf(n: integer; b: boolean): integer;
begin
  if b then brf := 1
  else      brf := 0;

  while(n > 0) do begin
    if(b) then brf := brf * 10
    else       brf := brf + 1;

drage0

program c;
var n, m, i: longint;
function brf(n: integer; b: boolean): integer;
begin
  if b then brf := 1
  else      brf := 0;

  while(n > 0) do begin
    if(b) then brf := brf * 10
    else       brf := brf + 1;

drage0

program unit1;
type
  niz = array[1..100] of integer;
var
  x: niz;
  n, r, i: integer;

{ Hvala Tina! }
procedure unos (n:integer;var x: niz);
var i:integer;

drage0

program zadatak2;
type niz = array[1..1000] of integer;
var
  x, y: niz;
  i, j, minI, n: integer;
  minS, s: real;

function dist(x0, y0, x1, y1: integer): real;
begin
  dist := sqrt((x0-x1)*(x0-x1)+(y0-y1)*(y0-y1));

drage0

local delayAm         = 1;    -- Default delay amount, in seconds
local countdown       = 5;    -- Countdown amount
local initDotAm       = 4;    -- Amount of dots when initializing
local initDotAmCur    = 0;    -- Used in initText, DO NOT change by hand
local startTextDelay  = 0.3;  -- Used in slap text
local perTextDelay    = 0.1;  -- Delay between letters in perText*()
local waitProsSpawn   = 10;   -- When are we sure all the props are spawned?

local function isWhitespace(s)
  return (s == ' ');

drage0

PROGRAM z44;
TYPE niz = ARRAY[1..100] OF integer;
VAR
  x: niz;
  n: integer;

PROCEDURE unos(n: integer; var x: niz);
VAR i: integer;
BEGIN
  FOR i:=1 TO n DO