çok saol senide baya uğraştırdım ben satır atlatmak istemiyorum writeln yazarak burda birinci öğrenci bilgilerini ekrana bastıktan sonra ikinci öğrencinin girişini aynı satırdan başlatıyor resimde gözüküyor zaten aslında burda böle bi hata vermemesi lazım acaba win 7 kullanıyorum bundan kaynaklanan bi pascal sorunu olabilir mi diye düşünüyorum.




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.[/QUOTE]