Alttaki kırmızı olan yazı yani write yazarsan bitişik yazar sonuna ln koyarsan satırbaşı yapar.sınıf not ortalamalı halini yarın eklerim.

--

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
writeln( b,'. Ad� ve Soyad� : ');readln(e);
writeln( b,'. Vize Notu : ');readln(c);
writeln( 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.