Напишіть алгоритм розрахунку s по формулі : s = 3x +1 / 3. значення х вводить людина​

4. var a: real; begin write('введите количество мегабайт='); read(a); writeln('количество килобайт=',a*1024); writeln('количество байт=',a*1024*1024); writeln('количество бит=',a*1024*1024*8); end. 5. var a,b,c,p,s: real; begin write('введите сторону a='); read(a); write('введите сторону b='); read(b); write('введите сторону c='); read(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('s=',s: 5: 2); end. 6. var a: integer; begin write('введите количество суток='); read(a); writeln(24*a,' ','часов'); writeln(60*24*a,' ','минут'); writeln(60*60*24*a,' ','секунд'); end.

Алг максимум нач   цел количество чисел, текущее число, текущий максимум   цел счетчик   ввод количество чисел   ввод текущее число   текущий максимум : = текущее число   нц для счетчик от 2 до количество чисел     ввод текущее число     если текущее число > текущий максимум то       текущий максимум : = текущее число     все   кц   вывод текущий максимум кон пример ввода: 3 1 3 2 пример вывода: 3