uses crt;
var
isim :  Array[1..35]of string;
vize :  Array[1..35]of integer;
final:  Array[1..35]of integer;
sonuc:  Array[1..35]of real;
tamsayi:Array[1..35]of integer;
kalan : integer;
gecen : integer;
i: integer;
ort:integer;
Begin;
Clrscr;
kalan:=0;
for i:=1 to 35 do
begin
write(i,'.Öğrencinin Adını Ve Soyadını Giriniz...:');
readln(isim[i]);
write(i,'.Öğrencinin Vize Notunu Giriniz...:');
readln(vize[i]);
write(i,'.Öğrencinin Final Notunu Giriniz...:');
readln(final[i]);
sonuc[i]:=(vize[i])*(0.4)+(final[i])*(0.6);
tamsayi[i]:=trunc(sonuc[i]);
ort:=ort+tamsayi[i];    
if tamsayi[i]<=49 then
begin
writeln(i,'.&#214;ğrencinin Notu:',tamsayi[i],' Kaldı');
writeln('---------------------------------------');
kalan:=kalan+1;
end;
if tamsayi[i]>=50 then
begin
writeln(i,'.&#214;ğrencinin Notu:',tamsayi[i],' Ge&#231;ti');
writeln('---------------------------------------');
gecen:=gecen+1;
end;
end;
writeln('Ge&#231;en &#214;ğrenci Sayısı: ',gecen);
writeln('Kalan &#214;ğrenci Sayısı: ',kalan);
writeln('Sınıf Ortalaması: ',ort/35);
readln;
 end.