Даны координаты точек х1, y1, x2, y2,…, x20, y20 и выравнивание прямой y=ax + b; b= -2.1; a=1.34. Сформировать и вывести на печать массив с, который состоит из ординат точек, принадлежащих этой прямой, и.найти их количество — Pascal(Паскаль)

uses crt;
type mas=array[1..20] of real;
const
a=1.34;
b=-2.1;
var
x,y:mas;
i:integer;
 
begin
clrscr;
randomize;
for i:=1 to 20 do
 begin
  write('x[',i,']=');
  x[i]:=random(10)-1;
  write(x[i]:2:1,'; ');
 end;
writeln;
writeln;
for i:=1 to 20 do
 begin
  y[i]:=a*x[i]+b;
  write('y[',i,']=',y[i]:2:1,'; ');
 end;
readln;
end.