Pascalda Vize Final Programı nın Taslağı

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,'.Öğrencinin Notu:',tamsayi[i],' Kaldı'); writeln('---------------------------------------'); kalan:=kalan+1; end; if tamsayi[i]>=50 then
begin
writeln(i,'.Öğrencinin Notu:',tamsayi[i],' Geçti');
writeln('---------------------------------------');
gecen:=gecen+1;
end;
end;
writeln('Geçen Öğrenci Sayısı: ',gecen);
writeln('Kalan Öğrenci Sayısı: ',kalan);
writeln('Sınıf Ortalaması: ',ort/35);
readln;
end.