составить блок-схему и алгоритм вычисления гипотенузы и высоты прямоугольного треугольника, зная его площадь S и основание a

А)
алг А
нач
  цел N = 10
  целтаб a[1:N]
  цел i, s
 
  нц для i от 1 до N
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  s:=a[3]+a[5]
  вывод "s = ", s, нс
кон

Б)
алг Б
нач
  цел M = 10
  целтаб a[1:M]
  цел i, max
 
  нц для i от 1 до M
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  max:=a[1]
  нц для i от 2 до M
    если a[i] > max то
      max:=a[i]
    все
  кц
  вывод "max = ",max,нс
кон

В)
алг В
нач
  цел M = 10
  целтаб a[1:M]
  цел i, k
 
  нц для i от 1 до M
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  k:=0
  нц для i от 1 до M
    если mod(a[i],6)=0 то
      k:=k+1
    все
  кц
  если k>0 то
    вывод "k = ",k,нс
  иначе
    вывод "Нет чисел, кратных 6"
  все
кон
Г)
алг Г
нач
  цел N = 10
  целтаб a[1:N]
  цел i, p
 
  нц для i от 1 до N
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  p:=1
  нц для i от 1 до N
    если mod(a[i],2)=0 то
      p:=p*a[i]
    все
  кц
  вывод "p = ",p,нс
кон

  program proga; 
 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.