Придумать чёрный ящик
Написать
Вход:
Выход:
Правило образования:

//PascalABC.Net 3.1.0.1200
uses System;
var
    title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

begin
    writeln('Введите оценки');
    var marks := new Dictionary<integer, integer>();
    
    repeat
        var n := ReadInteger();
        if (n > 5) or (n < 2) then continue;
        
        if marks.ContainsKey(n) then
            marks[n] += 1
        else marks.Add(n, 1);
    until marks.Values.Sum >= 10;
    
    for var i := 2 to 5 do
        writeln(title[i], ': ', marks[i]);
end.

Ну так правильно пишет , нельзя писать if b>a>c
then begin , пишется правильно так  if (c>b) and (b>a)then begin ,  вообщем вот держи ;

Program qq;var a,b,c,max,min,med : longint;beginwriteln ('введите три числа');read (a,b,c);if (c>b) and (b>a)then beginmax := c;med := b;min := a;End;if (b>a) and (a>c)then beginmax := b;med := a;min := c;End;if (a>c) and (c>b)then beginmax := a;med := c;min := b;End;writeln ('наибольшее число', max);writeln ('среднее число', med); writeln ('наименьшее число', min);End.