написать программу на Паскале!
y=5k+x
при k=3+x​

Var a,b,c:real;
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else 
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin 
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(n*4*'-');
  var b:=a.Rows.Select(row->row.Where(t->t.IsOdd).DefaultIfEmpty.Average)
    .ToArray;
  b.Println;
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
  40 -38  16 -70  26
  87   7 -31  99  34
 -34 -47 -33  32  56
  66  71  41   7  80
  55  42 -22   7  86

0 40.5 -40 39.6666666666667 31