РЕШИТЬ ЗАДАЧУ С ПРОГРАММИРОВАНИЯ НА ЯЗЫКЕ "VBA" Написать программу, которая рассчитывает стоимость переданной или принятую через сеть Интернет информацию. Входными данными для программы являются код, что означает время когда происходит информационный обмен (задается пользователем), стоимость одного Мега байта информации (зависит от времени

передачи информации), а также количество переданных или полученных Мега байт информации (задается пользователем). (задать любые числа)

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.     

Program proga;
Var  
p: text;   
  i, n : byte;     
 s,min,m: string;     
 Begin                         
 write('Введите имя файла   ');  {Например: C:.txt}                         
 read(m);
Assign(p,m);      
  reset(p);
    read(p,s);
 min:=s;   
 n:=100;   
 for i:=1 to n do   
 begin     
readln(p,s);                                      
while not eof(p) do  
 {нахождение минимальной строки}       
   begin         
 readln(p,s);       
   if length(s) <= length(min) then        
  min:=s;         
 end;          
 end;
close(p);   
 write('самая короткая строка: ',min);
End.