1
2
3
4
5
6
7
8
9
var i,j,r:integer;
s,a:array[1..4,1..4] of char;
c:string;
begin
for i:=1 to 4 do begin
    readln(s[1,i]);
    readln(s[2,i]);
    readln(s[3,i]);
    readln(s[4,i]); end;
 ...

1
2
3
4
5
6
7
8
9
program pr5;
var s,i,e,t:real;
n:integer;
begin
writeln('enter parametr n-');
readln(n);
e:=0.0001;
s:=0;i:=1;t:=1/n;
while t>e do
 ...

1
2
3
4
5
6
7
8
9
program pr5;
var s,i,e,t:real;
n:integer;
begin
writeln('enter parametr n-');
readln(n);
e:=0.0001;
s:=0;i:=1;t:=1/n;
while t>e do
 ...

1
2
3
4
5
6
7
8
9
program pr5;
var s,i,e,n,t:real;
begin
writeln('enter parametr n-');
readln(n);
e:=0.0001;
s:=0;i:=1;t:=1/n;
while t>e do
begin
 ...

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
program arrayproj3;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
 ...

1
2
3
4
5
6
7
8
9
program arrayproj3;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
 ...

1
2
3
4
5
6
7
8
9
program arrayproj3;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
 ...

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
program greenparksrewards;
uses crt;
 
type studentrec = record
     studentnum : integer;
     forename : string;
     surname : string;
     dob : string;
     tutorial : real;
 ...

1
2
3
4
5
6
7
8
9
var a,b,c:ansistring;
    temp,f,g:array[1..1000] of integer;
    i,z,pos,simpan:integer;
 
function walik(s:string):string;
 begin
  walik:=s;
  for i:=1 to length(s) do
   walik[i]:=s[length(s)-i+1];
 ...

1
2
3
4
5
6
7
8
9
program greenparksrewards;
uses crt;
 
type studentrec = record
     studentnum : integer;
     forename : string;
     surname : string;
     dob : string;
     tutorial : real;
 ...

1
2
3
4
5
6
7
8
9
program greenparksrewards;
uses crt;
 
type studentrec = record
     studentnum : integer;
     forename : string;
     surname : string;
     dob : string;
     tutorial : real;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
var a,b,c:ansistring;
    temp,f,g:array[1..1000] of integer;
    i,z,pos,simpan:integer;
 
function walik(s:string):string;
 begin
  walik:=s;
  for i:=1 to length(s) do
   walik[i]:=s[length(s)-i+1];
 ...

1
2
3
4
5
6
7
8
9
var a,b,c:ansistring;
    temp,f,g:array[1..1000] of integer;
    i,z,pos,simpan:integer;
 
function walik(s:string):string;
 begin
  walik:=s;
  for i:=1 to length(s) do
   walik[i]:=s[length(s)-i+1];
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, ss, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...

1
2
3
4
5
6
7
8
9
program Fakhri;
var
 i, si:integer;
 a,n : longint;
 k, b, r, s, j, sd: real;
 table : array [0..10000] of real;
begin
    readln(a);
    k:=0;
 ...