1
2
3
4
5
6
7
8
9
{$APPTYPE CONSOLE} //Ja korzystam z Delphi, gdzie aby mieć aplikację konsolową trzeba dodać taką dyrektywę
Program Kalkulator; //Nazwa programu
Uses SysUtils; //Funkcja TryStrToInt użyta niżej
 
Function GetInput(Title: String): Integer; //Funkcja pobiera od użytkownika wpisaną liczbę
Var Temp: String;
    Out : Integer;
Begin
 Write(Title+' ');
 ...

1
2
3
4
5
6
7
8
9
{$APPTYPE CONSOLE}
Program Kalkulator;
Uses SysUtils;
 
Function GetInput(Title: String): Integer;
Var Temp: String;
    Out : Integer;
Begin
 Write(Title+' ');
 ...

1
 

1
2
3
4
5
6
var i, n:integer;
begin
readln(n);
for i:= n downto 1 do
  writeln('8');
end.

1
2
3
4
5
6
7
8
9
PROGRAM Figury; {IF}
 
USES Crt;
 
VAR
l, r, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('                PROGRAM POZWALA NA OBLICZENIE:               ');
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Figury; {IF}
 
USES Crt;
 
VAR
l, r, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('                PROGRAM POZWALA NA OBLICZENIE:               ');
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Figury; {IF}
 
USES Crt;
 
VAR
l, r, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('                PROGRAM POZWALA NA OBLICZENIE:               ');
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Figury; {IF}
 
USES Crt;
 
VAR
l, r, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('                PROGRAM POZWALA NA OBLICZENIE:               ');
 ...

1
2
3
4
5
6
7
8
9
program drugi;
 uses crt;
 var n:integer;
     a:boolean;
 function liczsilnie(n:integer):longint;
  begin
       if n>1 then
                  liczsilnie:=n*liczsilnie(n-1)
       else
 ...

1
2
3
begin
Write(#50#49#51#32,'is',213);
end.

1
2
3
4
5
6
7
8
9
var
        ar:array[1..60]of byte;
        n,x,y,d:integer;
begin
        readln(n);
        for x:=1 to n do
                readln(ar[x]);
        for x:=1 to n do
        begin
 ...

1
2
3
4
5
6
7
8
9
program stage25;
 
const
a = 4;
b = 12;
c = 99;
d = 2099;
var
e, f, g, i : integer;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,eii : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,ei : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,eii : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,ei : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,eii : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,ei : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,ei : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,ei : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,ei : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,ei : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e,eh : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program pr4;
var p,a,x:real;
i,n:integer;
 begin
a:=0;
repeat
writeln('enter a-(a < 1)');
readln(a);
if a>=1 then 
 ...

1
2
3
4
5
6
7
8
9
program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii,N : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
 ...

1
2
3
4
5
6
7
8
9
program skata(input,output);
type list=array [1..10] of integer;
var
 ii,n : integer; r : list;
 
procedure merge(var a,b,c : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a : list;
 ...

1
2
3
4
5
6
7
8
9
program skata(input,output);
type list=array [1..10] of integer;
var
 ii,n : integer; r : list;
 
procedure merge(var a,b,c : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a : list;
 ...

1
2
3
4
5
6
7
8
9
program skata(input,output);
type list=array [1..10] of integer;
var
 ii,n : integer; r : list;
 
procedure merge(var a,b,c : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a : list;
 ...