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.


Надеюсь так? Просто задание не очень корректное.