Question

Напишите пожалуйста объяснения к этой программе




program crr;
uses crt;
var i,k:integer;a,b:real; c:array[1..1000] of integer;

begin
clrscr;
randomize; for i:=1 to 1000 do
c[i]:=random(10);
writeln('vvedite a');readln(a);
writeln('vvedite b');readln(b);
k:=0;
for i:=1 to 1000 do
if (c[i]>a) and (c[i] writeln(k); readln;
end.