Напишите программу которая вычисляет квадрат наименьшего из четырех чисел

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

1) находим общий вес текста:

51200*10=512000 бит

2)находим кол-во символов

512000/16=32000 символов 

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 : integet;  

begin

writeln ('vvedit # bileta');

readln (a);

t: =a div 100000;

r: =a mod 100000 mod 10000 mod 1000 mod 100 mod 10;   {барыжна строчка; )   }

n: =9; s: =0; s2: =0;

for i: =1 to n do begin        

h: =t mod i; if h=0 then s: =s+1;

h2: =r mod i;   if h2=0 then s2: =s2+1;

end;

if (h=2) and (h2=2) then writeln ('bilet shasliviy');

else writeln ('bilet obichniy tramvayniy=)');

readln

end. 

для начала инициализация массива, ищем элементы типа "uint" складываем и умножаем на два, затем делим всё на 2 если числа дробные, то выкидывем, дальше вывод массива.