Program uc_notun_ortalamasini_bulur;
uses crt;
Var {degisken tanimlama blogu}

    not1,not2,not3 : integer;
    ortalama       : real;
Begin {Ana Program Bloğu}
  textcolor(1);
  write('notlari girmek icin enter a basin   ***********(en fazla 10 basamak)************');
  ReadLn;
  textcolor(3);
  write('1. notu giriniz (rakamla)---------------->:');ReadLn(not1);
  textcolor(3);
  write('2. notu giriniz (rakamla)---------------->:');ReadLn(not2);
  textcolor(3);
  write('3. notu giriniz (rakamla)---------------->:');ReadLn(not3);
  ortalama:=(not1+not2+not3)/3;
  WriteLn('******************************************************************************');
  textcolor(9);
  WriteLn('Ortalama Bulundu gormek icin enter a basin');
  WriteLn('******************************************************************************');
  ReadLn;
  textcolor(3);
  WriteLn('uc notun ortalamasi   =',ortalama:5:2);
  textcolor(12);
  WriteLn('------------------------------------------------------------------------------');
  textcolor(9);
  WriteLn('programi kullandiginiz icin tesekkurler.............................. Fatih Ok');
  textcolor(12);
  WriteLn('------------------------------------------------------------------------------');
  WriteLn('scientist.fatih@gmail.com                                                     ');
  WriteLn('------------------------------------------------------------------------------');
  textcolor(3);
  WriteLn('uc notun ortalamasi   =',ortalama:5:2);
  textcolor(90);
  WriteLn('***************bu program pascal dili ile yazilmistir*************************');
  textcolor(12);
  WriteLn('programi sonlandirmak icin Entera basin---------------FATIH OK-------P@SCAL---');
  WriteLn('******************************************************************************');
  WriteLn('programi sonlandirmak icin Entera basin---------------FATIH OK-------P@SCAL---');
  WriteLn('******************************************************************************');
  ReadLn;
end.

fatih ok
scientist.fatih@gmail.com