neyse bu sorunu çözdüm sayende oldu aslında kırmızı olan satırlarda writeln girmem gerekiyormuş dikkatsizlik artık yarin not ortalaması nı hallerseniz çok iyi olcak saolun

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
writeln('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Gecti')
else
writeln('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Kald')
end;
readln;
end.