uses crt;
var a,b,c,d,f:integer;
e:string;
begin
Write('Sınıftaki öğrenci Sayısını girin=');readln(a);

for b:=1 to a do 
begin
Write(b,'.öğrencinin adı');readln(e);
Write(b,'.vize notu');readln(c);
Write(b,'.final notu');readln(d);
f:=(c*0,4)+(d*0,6);
if(f>=45)
Write('isim',e,'Başarı notu',f,'Geçti')
else
Write('isim',e,'Başarı notu',f,'Kaldı')



end;

end.