Написать программу нахождения искомого числа в паскале s=26k-m/6-4k-56mk / - дробная черта

Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
end.

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var g:=ArrRandom(31,0,40); g.Println;
  Writeln(g.IndexMax+1)
end.

Пример
38 34 15 11 2 33 12 39 12 0 32 23 7 18 22 31 0 6 19 15 24 37 26 12 7 9 20 25 21 18 20
8

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017

begin
  var y:=ReadArrReal('2008:',12);
  var z:=ReadArrReal('2009:',12);
  var d:=y.Average-z.Average;
  if d>0 then Writeln('2008 теплее')
  else
    if d<0 then Writeln('2009 теплее')
    else Writeln('Оба года имеют одинаковую среднюю температуру')
end.

Пример
2008: -12.7 -10.4 -2.3 5.7 12.5 19.6 24.1 22.8 19.9 17.6 8.2 -7.4
2009: -15.2 -9.4 1.6 7.1 13.5 17.1 26.3 21.4 17.5 14.2 10.1 -12.6
2008 теплее

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(20,30,-30,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Write('Положительных по строкам: ');
  a.Rows.Select(r->r.Where(e->e>0).Count).Println;
  Write('Отрицательных по строкам: ');
  a.Rows.Select(r->r.Where(e->e<0).Count).Println;
  Write('Средние четных по строкам: ');
  a.Rows.Select(x->x.Where(y->y.IsEven).Average).
    Select(avg->Format('{0:f4}',avg)).Println;
end.