readn(a);
readln(b);
IF A>B THEN WRITELN('A>B)
           ELSE WRITELN('B>A')

var A: array [0..1] of String[32];

var B: Boolean;
var X: Integer;

A[0] := "Не выполнят";
A[1] := "Выполнят";

readln(M);
readln(N);

B := N*8 >= M;

X := Ord(B);

writeln(A[X]);

B := N*8 >= M;

var A: array [0..1] of String[32];

A[0] := "Не выполнят";
A[1] := "Выполнят";

readln(M);
readln(N);

writeln(A[Ord(N*8 >= M)]);

var x: Char;
x:='A';
writeln(Ord(x)); — имеем 65
________________________
var x: Boolean;
x:=True;
writeln(Ord(x)); — имеем 1
________________________

type DaysOfTheWeek= (Sun,Mon,Tue,Wed,Thu,Fri,Sat);
var  x : DaysOfTheWeek;
x:=Tue;
writeln(Ord(x)); — имеем 2 (Sun — 0, Mon — 1 и т.д.)

#!/usr/bin/perl
use strict;
use warnings;

my $m = 24.0; # norm
my $a = 0; # answer counter
my $n; # speed

my @timeData = localtime(time);
print join(' ', @timeData)."\n"; # timestamp start

for (my $c = 0; $c < 1e8; $c++) {
  $n = rand(12); #
  if ($n*8 <= $m) {
    $a++;
  }
}
print "$a\n";
@timeData = localtime(time);
print join(' ', @timeData)."\n"; # timestamp end

#!/usr/bin/perl
use strict;
use warnings;

my $m = 24.0; # norm
my $a = 0; # answer counter
my $n; # speed

my @timeData = localtime(time);
print join(' ', @timeData)."\n"; # timestamp

for (my $c = 0; $c < 1e8; $c++) {
  $n = rand(12);
  $a += ($n*8 <= $m);
}

print "$a\n"; #answer
@timeData = localtime(time);
print join(' ', @timeData)."\n"; # timestamp end

#include <stdio.h>
#include <stdlib.h>
#include <windows.h>

//---------------------------------------------------------------------------

int main()
{
   int m = 24; // norm
   int a = 0; // answer counter
   int n; // speed

   int t1, t2; //timestamps

   t1 = GetTickCount();
   
   for (int c = 0; c < 1e8; c++) {
      n = random(12);
      if (n*8 <= m) {
         a++;
      }
   }

   t2 = GetTickCount();
   printf("non-linear: a = %u; %.3f s\n",a,(t2-t1)/1000.);


   a = 0;

   t1 = GetTickCount();

   for (int c = 0; c < 1e8; c++) {
      n = random(12);
     a += (n*8 <= m);
   }

   t2 = GetTickCount();
   printf("linear: a = %u; %.3f s\n",a,(t2-t1)/1000.);

   return 0;
}

non-linear: a = 33335331; 3.828 s
linear: a = 33329534; 3.172 s