Задается проходной балл в институт и оценки студента за физику, математику и…

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. Надеюсь так? Просто задание не очень корректное.