Kodları aşağıdaki gibidir. varForm1: TForm1;viz,fin,ort:real;implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);beginviz:=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’)elseif ort>=50 then…