Описать значение каждой строки в программном коде VBA. Нарисовать блок-схему к программе. Dim a(5)
Dim i As Integer
Private Sub Command1 Click()
k=0
For i = 1 To 5
a(i) = InputBox("Введите элементы массива" + a(i))
List1 Additem "a(" + Str(i) + ") " + Str(a(i))
Next i
For i = 1 To 5
If a(i) Mod 3 = 0 Then k = k + 1
Next i
List3. AddItem "k=" + Str(k)
End Sub

//Pascal ABC.NET 3.1 сборка 1219

Var
 f:text;
 ars:array of string;
 s,s1:string;
 min,n,i:integer;
begin
n:=1;
min:=integer.MaxValue;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
 begin
  readln(f,s);
  s1:=s;
  s:=s.Trim;
  i:=1;
  while i<>length(s) do
    if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i);
  if ((s.split).length<=min) and ((s.split).length<>0) then
  begin
   if (s.split).length=min then
    begin
     inc(n);
     setlength(ars,n);
     ars[n-1]:=s1;
    end
    else
    begin
     n:=1;
     setlength(ars,n);
     ars[n-1]:=s1;
    end;
    min:=(s.split).length;
   end;
  end;
close(f);
assign(f,'text1.txt');
rewrite(f);
for i:=0 to n-1 do
writeln(f,ars[i]);
close(f);
end.

Содержимое файла text.txt:
Хей патимейкер
уличный
денсер
шейкер                   шейкер
Содержимое файла text1.txt:
уличный
денсер

//1
float a, b, c;
cout<<"Введите a: ";
cin>>a;
cout<<"Введите b: ";
cin>>b;
cout<<"Введите c: ";
cin>>c;
float D=b*b-4*a*c;
cout<<"ответ: ";
if(D>0)
cout<<"x1 = "<<(-b+sqrt(D))/2*a<<", x2 = "<<(-b-sqrt(D))/2*a;
else if(D==0)
cout<<"x = "<<-b/2*a;
else
cout<<"корней нет";
cout<<endl

//2
float a, b, c;
cout<<"Введите a: ";
cin>>a;
cout<<"Введите b: ";
cin>>b;
cout<<"Введите c: ";
cin>>c;
cout<<"Наибольшее число: ";
if(a>c)
if(a>b)
cout<<"a ("<<a<<")";
else
cout<<"b ("<<b<<")";
else if(c>b)
cout<<"c ("<<c<<")";