procedure TForm1.Button1Click(Sender: TObject);

var

vize,final,yazokulu:integer;

ortalama:Real;

s:Boolean;

t:String;

begin

 t:='';

 vize:=StrToInt(InputBox('Not Girişi','Vize',''));

 s:=InputQuery('Final Durumu','Final 50 nin üzerinde mi?',t);

 if s=true then

  begin

  final:=StrToInt(InputBox('Not Girişi','Final',''));

  ortalama:=vize*0.4+final*0.6;

  Edit1.Text:=FloatToStr(ortalama);

  end

 else

  begin

   yazokulu:=StrToInt(InputBox('Not girişi','Yazokulu',''));

   ortalama:=vize*0.4+yazokulu*0.6;

   Edit1.Text:=FloatToStr(ortalama);

  end

 

end;
end.