merhabalar biraz değişiklik yaptım çalışıyor fakat bişeyi unutmuşuz sınıf başarı notu ortalaması nı eklemeliyim ve ufak bir sorun var eklediğim resimde yardımcı olursanız çok çok iyi olcak.




uses crt;
var
a,b,c,d:integer;
f:real;
e:string;
begin
clrscr;
write('Snftaki ”grenci saysn girin : ');readln(a);

for b:=1 to a do
begin
write( b,'. Ad ve Soyad : ');readln(e);
write( b,'. Vize Notu : ');readln(c);
write( b,'. Final Notu : ');readln(d);
f:=((c*40)+(d*60))/100;
if(f>=50) then
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Gecti')
else
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Kald')
end;
readln;
end.