когда возникли условия для массовго распростронения компьютерной грамматики?

Program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do numb[i]:=random(101);// задает последовательность

for i:=1 to 100 do
begin
write(',',numb[i]); // вывод на экран последовательность(можно удалить)
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
end;
if f=0 then writeln('Yes') else writeln('No');

end.

program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do begin
numb[i]:=random(101);// задает последовательность
write(' ',numb[i]);//вывод на экран, можно удалить
end;
writeln;
i:=0;
repeat
i:=i+1;
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
until i<100;
if f=0 then writeln('Yes') else writeln('No');

end.

Program kvur;
var
x1,x2,d,e,f, a, b, c: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a:6:2);
writeln('b= ',b:6:2);
writeln('c= ',c:6:2);
writeln('D=b*b-4*a*c=',d:6:2);
if (d>=0)
then begin
e:= (-b/(2*a));
f:= (sqrt(d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln('D>= 0, значит корни действительные: ');
writeln('x1= ',x1:6:2);
writeln('x2= ',x2:6:2);
end;
if(d<0) then begin
e:= (-b/(2*a));
f:= (sqrt(-d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln(' D<0, значит корни комплексные: ');
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
end.