Решить по информатике пусть существует подземелье в котором обитают два призрака. первый говорит правду днём, но врёт ночью, за это его называют рацарем дня.2 призрак лжет днем, говорит правду ночью, за это называется рыцарем ночи. неведомо как меня забросило в эту пещеру, часов нет и мобильного телефона нет. выхода на поверхность тоже нет. передо мной 1 из этих призраков. вернуться из подземелья домой я могу, если отвечу. какой призрак передо мной и какое время суток.

ну, без понятия на каком языке писать - не решаема.

однако, на "метаязыке":

задать массив матрица[5,5];

получить ввод в ввод;

если ввод = 's', то {

сумма = 0;

x = 1;

продолжать, пока x < = 5  {

сумма =  сумма +  матрица[x,x];

x = x + 1;

}

вывести  сумма;

} иначе, если  ввод равен 'a' или 'b' или 'c', то {

x = 1;

продолжать, пока x < = 5  {

среднарифм = 0;

y = 1;

продолжать, пока y < = 5  {

среднарифм  =  среднарифм  +  матрица[x,y];

y  = y + 1;

}

вывести  среднарифм / 5;

x = x + 1;

}

}  иначе, если  ввод = 'm', то {

минимум =  матрица[1,1];

максимум =  матрица[1,1];

x = 1;

продолжать, пока x < = 5  {

y = 1;

продолжать, пока y < = 5  {

если  матрица[x,y]  <   минимум   то  минимум =  матрица[x,y];

если  матрица[x,y]  >   максимум    то  максимум =  матрица[x,y];

y  = y + 1;

}

}

вывести  минимум;

вывести  максимум;

}

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.