Pascal ABC.NET Очень нужно:
Створити алгоритм і програму знаходження значення функції:
z=7t+cos(t), якщо t=1.5m+sin(m), якщо m=3.5k^3+9.16, для серії значень k=7; k=4; k=20.

Если нужен ввод через запятую:
using System;
namespace ConsoleApp14{    class Program    {        static void Main(string[] args)        {            Console.WriteLine("Введите длины сторон треугольника через запятую");            string[] OutS = Console.ReadLine().Split(',');            double a = Convert.ToInt32(OutS[0]);            double b = Convert.ToInt32(OutS[1]);            double c = Convert.ToInt32(OutS[1]);            double p = ((a + b + c) / 2);            Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c;            Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p));            Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется
        }    }}
Если не хочешь использовать метод Split:
using System;
namespace ConsoleApp14{    class Program    {        static void Main(string[] args)        {            Console.WriteLine("Введите длину стороны a");                       double a = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine("Введите длину стороны b");            double b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine("Введите длину стороны c");            double c = Convert.ToInt32(Console.ReadLine());            double p = ((a + b + c) / 2);            Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c;            Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p));            Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется
        }    }}

Const
    n = 25;

var
    a: array[1..n] of real;
    i, j: integer;
    min, max: real;
    sum, product, harmonic: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40) - 20;
        write(a[i], ' ');
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('average = ', sum / n);
    
    {минимум и максимум}
    min := a[1];
    for i := 1 to n do
        if min > a[i] then min := a[i];
    writeln('min = ', min);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
    writeln('sum = ', sum);
end.