Question

составить программу к задаче: задан проходной балл b запросить оценки абитуриента по трем экзаменам математике m сочинению s физике f и сообщить о результатах приема в вуз

Answer 1

Program Mila37;
var b, m, s, f:integer;
  begin
  writeln('*******************************');
  writeln('*      ПРИЁМНАЯ КОМИССИЯ      *');
  writeln('*******************************');
  writeln;
  write('введите проходной балл');
  readln(b);
  write('введите оценку по математике ');
  readln(m);
  write('введите оценку за сочинение ');
  readln(s);
  write('введите оценку по физике ');
  readln(f);
  if m+s+f<b then
    begin
      writeln('К сожалению, Вы не поступили...');
      writeln('Попробуйте снова через год.');
    end
    else
      begin
        writeln('Поздравляем!!! Вы поступили ');
        writeln('  и зачаслены на I-й курс');
      end;
end.