Для поступления в институт школьнику Умнову необходимо сдать 4 экзамена: математику, физику, русский и английский. Напишите программу для подсчета среднего балла, полученного школьником на вступительных экзаменах. Оценки по математике, физике и русскому введите с клавиатуры, а вот оценка по английскому языку известна заранее-это "5"(ведь Умнов окончил школу "Наука", а в ней прекрасно преподают английский язык!) На языке Pascal :3

Program dfgdf;
var 
m,o,r,f:real;
begin
writeln(оценку по математике введите); 
readln(m);
if (m>=1) and (mbegin
writeln(оценку по русскому введите);
readln(r);
if (r>=1) and (rbegin
writeln(оценку по физике введите);
readln(f);
if (f>=1) and (fbegin
o:=(m+f+r+5)/4;
writeln(средняя оценка = ,o);
end
else
begin
writeln(не корректный ввод!!!);
end;
end
else
writeln(не корректный ввод!!!)
end
else
writeln(не корректный ввод!!!)
end.