Вывести результаты годового обучения по 3 оценкам

[Abase_]

Пользователь вводит годовые оценки по математике, русскому и чтению для ученика 2 класса. Программа должна вывести одно из следующих сообщений: "Вы отлично закончили учебный год, поздравляю!","Вы успешно закончили учебный год, поздравляю!","В следующем году обязательно постарайся","К сожалению, вы остаётесь на повторный год обучения"

[BDA]

Что не получается?
Надо запросить у пользователя 3 числа, затем найти наименьшее из них, затем с помощью case вывести соответствующее минимальной оценке сообщение.

[Abase_]

BDA, надо просто без case а через if если это возможно

[BDA]

Можно и без case:

if grade = 5 then
    writeln('')
else if grade = 4 then
    writeln('')
else if ...

Что конкретно не получается реализовать?

[Abase_]

BDA, если вам не сложно не могли бы вы написать весь код и я попробую разобраться. Я сам пытался сделать через средне годовую оценку но у меня не получалось

[BDA]

Ну раз пытались, то выложите, что получилось. Может быть осталось пару строк поправить.

[Abase_]

BDA, к сожалению весь код остался на компьютере в классе

[Abase_]

BDA, вот я тут накидал что было примерно

program n1;
var
  a,c,n,b:real;
begin
  writeln('Введите годовую оценку по математике: ');
  read(a);
  writeln('Введите годовую оценку по русскому языку: ');
  read(c);
  writeln('Введиите годовую оценку по чтению: ');
  read(n);
  b:=(a+c+n)/3;
  if b<2.5 then
    writeln('К сожалению, вы остаётесь на повторный год обучения')
  else 
  if (b>2.5) and (b<3.5) then 
    writeln('В следующем году обязательно постарайся')
  else 
  if (b>3.5) and (b<4.5) then
    writeln('Вы успешно закончили учебный год, поздравляю!')
  else
  if b>4.5 then 
    writeln('Вы отлично закончили учебный год, поздравляю!');
end.

[BDA]

Другое дело. Мне решение видится так (на компилируемость не проверял):

program n1;
var
  a, b, c, grade: integer;
begin
  writeln('Введите годовую оценку по математике: ');
  read(a);
  writeln('Введите годовую оценку по русскому языку: ');
  read(b);
  writeln('Введите годовую оценку по чтению: ');
  read(c);
  grade := a;
  if b < grade then
    grade := b;
  if c < grade then
    grade := c;
  if grade = 5 then
    writeln('Вы отлично закончили учебный год, поздравляю!')
  else if grade = 4 then
    writeln('Вы успешно закончили учебный год, поздравляю!')
  else if grade = 3 then
    writeln('В следующем году обязательно постарайся')
  else
    writeln('К сожалению, вы остаётесь на повторный год обучения');
end.

Если функция min доступна, то можно убрать парочку if и сразу посчитать grade:

grade := min(min(a, b), c);

Честно говоря, условие задачи никак не описывает критерий успешности завершения года.

[digitalis]

Abase_Не знаю вашей системы оценок, но если она 5-бальная, то

if b>4.5 then

лишнее - остаётся и без того неохваченной только ситуация b>4.5
И ещё: выскочили из рассмотрения сами границы 3.5 и 4.5 - если на них точно попадёт, то ни один if не сработает. В этих парах где-то д.быть >= или <=