Kodları aşağıdaki gibidir.

var
Form1: TForm1;
viz,fin,ort:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
viz:=StrToInt(edit1.Text);
fin:=StrToInt(edit2.Text);
ort:=viz*0.40+fin*0.60;
if fin<50 then label1.Caption:=FloatToStr(ort)+ (‘ İle Finalden Kaldınız’)
else
if ort>=50 then label1.Caption:=FloatToStr(ort)+(‘ İle Geçtiniz’)
else
label1.Caption:=FloatToStr(ort)+(‘ İle Kaldınız’);

end;

Programı buradan indirebilirsiniz!