Будь ласка напишіть скрипти на гру в Scrach 2​

Var 
a,b,c : integer; 
d,x1,x2,s : 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; 
  if d < 0 then
    writeln ('Корней нет') 
    else     
  begin 
       x1 := (-b + sqrt (d))/(2*a); 
       x2 := (-b - sqrt (d))/(2*a);     
    if x1 <> x2 then   
      begin       
   writeln ('x1=',x1);       
    writeln ('x2=',x2);     
      s := x1+x2;       
   writeln ('s=',s);     
     end     
      else       
    writeln ('x=s=',x1);     
   end;     
          end.

Program n1;
const razmer = 2001;
var a:array [1..100] of integer;
      b:array [0..100,0..100] of integer;   
      i,j,min:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 100 do
 begin
  a[i]:=random(razmer)-razmer div 2;
  write(a[i],' ');
  b[i,0]:=a[i];
  b[0,i]:=a[i];
 end;
writeln;

min:=a[1]+a[2];

writeln('Все возможные значения попарных сумм:');
for i:=1 to 100 do 
begin 
for j:=1 to i-1 do 
  begin 
   b[i,j]:=b[0,j]+b[i,0];
   write(b[i,j],' '); 
   if b[i,j]<min then min:=b[i,j];
  end; 
 writeln; 
end;

writeln('Наименьшее значение попарной суммы: ',min);
end.