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

program project1; var  s:real;  i,j,f:byte;   begin  writeln('vvedite ocenku za fiziku ');readln(i);   writeln('vvedite ocenku za matemat ');readln(j);  writeln('vvedite ocenku za inform ');readln(f);   writeln('vvedite prohodnoi ball');readln(s);   if s<(i+f+j)then  writeln('student podhodit')   else   writeln('student ne podhodit');   readln; end. Надеюсь так? Просто задание не очень корректное.