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;
 ...

1
2
3
4
5
6
7
8
9
    Program abc;
     
    const
       Width = 78;
       Height = 25;
       WALL = 1;
       FLOOR = 0;
     
    var
 ...

1
2
3
4
5
6
7
8
9
program pr3;
var x,y,z,max,mid,min,sum:real;
 begin
writeln('enter x-');
 readln(x);
writeln('enter y-');
 readln(y);
writeln('enter z-');
 readln(z);
 ...

1
2
3
4
5
6
7
8
9
program pr3;
var x,y,z,max,mid,min,sum:real;
 begin
writeln('enter x-');
 readln(x);
writeln('enter y-');
 readln(y);
writeln('enter z-');
 readln(z);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
var
num1, num2, ans: Integer;
 
Begin
 
WriteLn('Enter first number!');
ReadLn(num1);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
var
num1, num2, ans: Integer;
 
Begin
 
WriteLn('Enter first number!');
ReadLn(num1);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
var
num1, num2, ans: Integer;
 
Begin
 
WriteLn('Enter first number!');
ReadLn(num1);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
var
num1, num2, ans: Integer;
 
Begin
 
WriteLn('Enter first number!');
ReadLn(num1);
 ...

1
2
3
4
5
6
7
8
9
program test;
 
var 
total: Integer;
num: Integer;
left: Integer;
 
Begin
total:= 100;
 ...

1
2
3
4
5
6
7
8
9
program test;
 
var 
total: Integer;
num: Integer;
left: Integer;
 
Begin
total:= 100;
 ...