uses crt;
var
v1,v2,v3,f1,f2,f3:integer;
n1,n2,n3:real;
d1,d2,d3:string[9];
ad:string;
begin
textbackground(1);textcolor(14);
clrscr;
begin
gotoxy(20,10);write('OGRENCI ADI-SOYADI GIR;');readln(ad);
CLRSCR;
gotoxy(20,5);write('1.DERS ADI GIR;');readln(d1);
gotoxy(20,6);write(d1,' DERS V˜ZE NOTU GIR;');readln(v1);
gotoxy(20,7);write(d1,' DERS F˜NAL NOTU GIR;');readln(f1);
n1:=v1*0.4+f1*0.6;

end;
begin
gotoxy(20,9);write('2.DERS ADI GIR;');readln(d2);
gotoxy(20,10);write(d2,' DERS V˜ZE NOTU GIR;');readln(v2);
gotoxy(20,11);write(d2,' DERS F˜NAL NOTU GIR;');readln(f2);
n2:=v2*0.4+f2*0.6;
end;
begin
gotoxy(20,13);write('3.DERS ADI GIR;');readln(d3);
gotoxy(20,14);write(d3,' DERS V˜ZE NOTU GIR;');readln(v3);
gotoxy(20,15);write(d3,' DERS F˜NAL NOTU GIR;');readln(f3);
n3:=v3*0.4+f3*0.6;
end;
clrscr;
gotoxy(11,6);write('OGRENCI ADI_SOYADI');
gotoxy(31,6);write(ad);
gotoxy(11,8);write('<DERS ADI>');
gotoxy(21,8);write('<V˜ZE>');
gotoxy(31,8);write('<F˜NAL>');
gotoxy(41,8);write('<ORTALAMA>');
gotoxy(51,8);write('<HARF>');
gotoxy(61,8);write('<DURUM>');
gotoxy(11,10);write(d1);
gotoxy(21,10);write(v1);
gotoxy(31,10);write(f1);
gotoxy(41,10);write(n1:1:0);
gotoxy(51,10);
if n1<50 then write('FF');
if (n1>49) and (n1<57) then write('DD');
if (n1>56) and (n1<65) then write('DC');
if (n1>64) and (n1<75) then write('CC');
if (n1>74) and (n1<81) then write('CB');
if (n1>80) and (n1<86) then write('BB');
if (n1>85) and (n1<91) then write('BA');
if n1>90 then write('AA');
gotoxy(51,12);
if n2<50 then write('FF');
if (n2>49) and (n2<57) then write('DD');
if (n2>56) and (n2<65) then write('DC');
if (n2>64) and (n2<75) then write('CC');
if (n2>74) and (n2<81) then write('CB');
if (n2>80) and (n2<86) then write('BB');
if (n2>85) and (n2<91) then write('BA');
if n2>90 then write('AA');
gotoxy(51,14);
if n3<50 then write('FF');
if (n3>49) and (n3<57) then write('DD');
if (n3>56) and (n3<65) then write('DC');
if (n3>64) and (n3<75) then write('CC');
if (n3>74) and (n3<81) then write('CB');
if (n3>80) and (n3<86) then write('BB');
if (n3>85) and (n3<91) then write('BA');
if n3>90 then write('AA');
gotoxy(61,10);
if n1<65 then write('KALDI');
if n1>64 then write('GE€T˜');
gotoxy(61,12);
if n2<65 then write('KALDI');
if n2>64 then write('GE€T˜');
gotoxy(61,14);
if n3<65 then write('KALDI');
if n3>64 then write('GE€T˜');
gotoxy(11,12);write(d2);
gotoxy(21,12);write(v2);
gotoxy(31,12);write(f2);
gotoxy(41,12);write(n2:1:0);
gotoxy(11,14);write(d3);
gotoxy(21,14);write(v3);
gotoxy(31,14);write(f3);
gotoxy(41,14);write(n3:1:0);
textbackground(1);textcolor(14);

gotoxy(10,5);write(chr(218));
gotoxy(11,5);write(chr(452));
gotoxy(12,5);write(chr(452));
gotoxy(13,5);write(chr(452));
gotoxy(14,5);write(chr(452));
gotoxy(15,5);write(chr(452));
gotoxy(16,5);write(chr(452));
gotoxy(17,5);write(chr(452));
gotoxy(18,5);write(chr(452));
gotoxy(19,5);write(chr(452));
gotoxy(20,5);write(chr(452));
gotoxy(21,5);write(chr(452));
gotoxy(22,5);write(chr(452));
gotoxy(23,5);write(chr(452));
gotoxy(24,5);write(chr(452));
gotoxy(25,5);write(chr(452));
gotoxy(26,5);write(chr(452));
gotoxy(27,5);write(chr(452));
gotoxy(28,5);write(chr(452));
gotoxy(29,5);write(chr(452));
gotoxy(30,5);write(chr(194));
gotoxy(31,5);write(chr(452));
gotoxy(32,5);write(chr(452));
gotoxy(33,5);write(chr(452));
gotoxy(34,5);write(chr(452));
gotoxy(35,5);write(chr(452));
gotoxy(36,5);write(chr(452));
gotoxy(37,5);write(chr(452));
gotoxy(38,5);write(chr(452));
gotoxy(39,5);write(chr(452));
gotoxy(40,5);write(chr(452));
gotoxy(41,5);write(chr(452));
gotoxy(42,5);write(chr(452));
gotoxy(43,5);write(chr(452));
gotoxy(44,5);write(chr(452));
gotoxy(45,5);write(chr(452));
gotoxy(46,5);write(chr(452));
gotoxy(47,5);write(chr(452));
gotoxy(48,5);write(chr(452));
gotoxy(49,5);write(chr(452));
gotoxy(50,5);write(chr(452));
gotoxy(51,5);write(chr(452));
gotoxy(52,5);write(chr(452));
gotoxy(53,5);write(chr(452));
gotoxy(54,5);write(chr(452));
gotoxy(55,5);write(chr(452));
gotoxy(56,5);write(chr(452));
gotoxy(57,5);write(chr(452));
gotoxy(58,5);write(chr(452));
gotoxy(59,5);write(chr(452));
gotoxy(60,5);write(chr(452));
gotoxy(61,5);write(chr(452));
gotoxy(62,5);write(chr(452));
gotoxy(63,5);write(chr(452));
gotoxy(64,5);write(chr(452));
gotoxy(65,5);write(chr(452));
gotoxy(66,5);write(chr(452));
gotoxy(67,5);write(chr(452));
gotoxy(68,5);write(chr(452));
gotoxy(69,5);write(chr(452));
gotoxy(70,5);write(chr(191));
gotoxy(70,6);write(chr(179));
gotoxy(30,6);write(chr(179));
gotoxy(10,6);write(chr(179));
gotoxy(10,7);write(chr(452));
gotoxy(11,7);write(chr(452));
gotoxy(12,7);write(chr(452));
gotoxy(13,7);write(chr(452));
gotoxy(14,7);write(chr(452));
gotoxy(15,7);write(chr(452));
gotoxy(16,7);write(chr(452));
gotoxy(17,7);write(chr(452));
gotoxy(18,7);write(chr(452));
gotoxy(19,7);write(chr(452));
gotoxy(20,7);write(chr(194));
gotoxy(21,7);write(chr(452));
gotoxy(22,7);write(chr(452));
gotoxy(23,7);write(chr(452));
gotoxy(24,7);write(chr(452));
gotoxy(25,7);write(chr(452));
gotoxy(26,7);write(chr(452));
gotoxy(27,7);write(chr(452));
gotoxy(28,7);write(chr(452));
gotoxy(29,7);write(chr(452));
gotoxy(30,7);write(chr(197));
gotoxy(31,7);write(chr(452));
gotoxy(32,7);write(chr(452));
gotoxy(33,7);write(chr(452));
gotoxy(34,7);write(chr(452));
gotoxy(35,7);write(chr(452));
gotoxy(36,7);write(chr(452));
gotoxy(37,7);write(chr(452));
gotoxy(38,7);write(chr(452));
gotoxy(39,7);write(chr(452));
gotoxy(40,7);write(chr(194));
gotoxy(41,7);write(chr(452));
gotoxy(42,7);write(chr(452));
gotoxy(43,7);write(chr(452));
gotoxy(44,7);write(chr(452));
gotoxy(45,7);write(chr(452));
gotoxy(46,7);write(chr(452));
gotoxy(47,7);write(chr(452));
gotoxy(48,7);write(chr(452));
gotoxy(49,7);write(chr(452));
gotoxy(50,7);write(chr(194));
gotoxy(51,7);write(chr(452));
gotoxy(52,7);write(chr(452));
gotoxy(53,7);write(chr(452));
gotoxy(54,7);write(chr(452));
gotoxy(55,7);write(chr(452));
gotoxy(56,7);write(chr(452));
gotoxy(57,7);write(chr(452));
gotoxy(58,7);write(chr(452));
gotoxy(59,7);write(chr(452));
gotoxy(60,7);write(chr(194));
gotoxy(61,7);write(chr(452));
gotoxy(62,7);write(chr(452));
gotoxy(63,7);write(chr(452));
gotoxy(64,7);write(chr(452));
gotoxy(65,7);write(chr(452));
gotoxy(66,7);write(chr(452));
gotoxy(67,7);write(chr(452));
gotoxy(68,7);write(chr(452));
gotoxy(69,7);write(chr(452));
gotoxy(70,7);write(chr(452));
gotoxy(10,7);write(chr(195));
gotoxy(70,7);write(chr(180));
gotoxy(10,8);write(chr(179));
gotoxy(20,8);write(chr(179));
gotoxy(30,8);write(chr(179));
gotoxy(40,8);write(chr(179));
gotoxy(50,8);write(chr(179));
gotoxy(60,8);write(chr(179));
gotoxy(70,8);write(chr(179));
gotoxy(10,9);write(chr(195));
gotoxy(11,9);write(chr(452));
gotoxy(12,9);write(chr(452));
gotoxy(13,9);write(chr(452));
gotoxy(14,9);write(chr(452));
gotoxy(15,9);write(chr(452));
gotoxy(16,9);write(chr(452));
gotoxy(17,9);write(chr(452));
gotoxy(18,9);write(chr(452));
gotoxy(19,9);write(chr(452));
gotoxy(20,9);write(chr(197));
gotoxy(21,9);write(chr(452));
gotoxy(22,9);write(chr(452));
gotoxy(23,9);write(chr(452));
gotoxy(24,9);write(chr(452));
gotoxy(25,9);write(chr(452));
gotoxy(26,9);write(chr(452));
gotoxy(27,9);write(chr(452));
gotoxy(28,9);write(chr(452));
gotoxy(29,9);write(chr(452));
gotoxy(30,9);write(chr(197));
gotoxy(31,9);write(chr(452));
gotoxy(32,9);write(chr(452));
gotoxy(33,9);write(chr(452));
gotoxy(34,9);write(chr(452));
gotoxy(35,9);write(chr(452));
gotoxy(36,9);write(chr(452));
gotoxy(37,9);write(chr(452));
gotoxy(38,9);write(chr(452));
gotoxy(39,9);write(chr(452));
gotoxy(40,9);write(chr(197));
gotoxy(41,9);write(chr(452));
gotoxy(42,9);write(chr(452));
gotoxy(43,9);write(chr(452));
gotoxy(44,9);write(chr(452));
gotoxy(45,9);write(chr(452));
gotoxy(46,9);write(chr(452));
gotoxy(47,9);write(chr(452));
gotoxy(48,9);write(chr(452));
gotoxy(49,9);write(chr(452));
gotoxy(50,9);write(chr(197));
gotoxy(51,9);write(chr(452));
gotoxy(52,9);write(chr(452));
gotoxy(53,9);write(chr(452));
gotoxy(54,9);write(chr(452));
gotoxy(55,9);write(chr(452));
gotoxy(56,9);write(chr(452));
gotoxy(57,9);write(chr(452));
gotoxy(58,9);write(chr(452));
gotoxy(59,9);write(chr(452));
gotoxy(60,9);write(chr(197));
gotoxy(61,9);write(chr(452));
gotoxy(62,9);write(chr(452));
gotoxy(63,9);write(chr(452));
gotoxy(64,9);write(chr(452));
gotoxy(65,9);write(chr(452));
gotoxy(66,9);write(chr(452));
gotoxy(67,9);write(chr(452));
gotoxy(68,9);write(chr(452));
gotoxy(69,9);write(chr(452));
gotoxy(70,9);write(chr(197));
gotoxy(70,9);write(chr(180));
gotoxy(10,10);write(chr(179));
gotoxy(70,10);write(chr(179));
gotoxy(20,10);write(chr(179));
gotoxy(30,10);write(chr(179));
gotoxy(40,10);write(chr(179));
gotoxy(50,10);write(chr(179));
gotoxy(60,10);write(chr(179));
gotoxy(70,10);write(chr(179));
gotoxy(10,11);write(chr(195));
gotoxy(11,11);write(chr(452));
gotoxy(12,11);write(chr(452));
gotoxy(13,11);write(chr(452));
gotoxy(14,11);write(chr(452));
gotoxy(15,11);write(chr(452));
gotoxy(16,11);write(chr(452));
gotoxy(17,11);write(chr(452));
gotoxy(18,11);write(chr(452));
gotoxy(19,11);write(chr(452));
gotoxy(20,11);write(chr(197));
gotoxy(21,11);write(chr(452));
gotoxy(22,11);write(chr(452));
gotoxy(23,11);write(chr(452));
gotoxy(24,11);write(chr(452));
gotoxy(25,11);write(chr(452));
gotoxy(26,11);write(chr(452));
gotoxy(27,11);write(chr(452));
gotoxy(28,11);write(chr(452));
gotoxy(29,11);write(chr(452));
gotoxy(30,11);write(chr(197));
gotoxy(31,11);write(chr(452));
gotoxy(32,11);write(chr(452));
gotoxy(33,11);write(chr(452));
gotoxy(34,11);write(chr(452));
gotoxy(35,11);write(chr(452));
gotoxy(36,11);write(chr(452));
gotoxy(37,11);write(chr(452));
gotoxy(38,11);write(chr(452));
gotoxy(39,11);write(chr(452));
gotoxy(40,11);write(chr(197));
gotoxy(41,11);write(chr(452));
gotoxy(42,11);write(chr(452));
gotoxy(43,11);write(chr(452));
gotoxy(44,11);write(chr(452));
gotoxy(45,11);write(chr(452));
gotoxy(46,11);write(chr(452));
gotoxy(47,11);write(chr(452));
gotoxy(48,11);write(chr(452));
gotoxy(49,11);write(chr(452));
gotoxy(50,11);write(chr(197));
gotoxy(51,11);write(chr(452));
gotoxy(52,11);write(chr(452));
gotoxy(53,11);write(chr(452));
gotoxy(54,11);write(chr(452));
gotoxy(55,11);write(chr(452));
gotoxy(56,11);write(chr(452));
gotoxy(57,11);write(chr(452));
gotoxy(58,11);write(chr(452));
gotoxy(59,11);write(chr(452));
gotoxy(60,11);write(chr(197));
gotoxy(61,11);write(chr(452));
gotoxy(62,11);write(chr(452));
gotoxy(63,11);write(chr(452));
gotoxy(64,11);write(chr(452));
gotoxy(65,11);write(chr(452));
gotoxy(66,11);write(chr(452));
gotoxy(67,11);write(chr(452));
gotoxy(68,11);write(chr(452));
gotoxy(69,11);write(chr(452));
gotoxy(70,11);write(chr(180));
gotoxy(10,12);write(chr(179));
gotoxy(70,12);write(chr(179));
gotoxy(20,12);write(chr(179));
gotoxy(30,12);write(chr(179));
gotoxy(40,12);write(chr(179));
gotoxy(50,12);write(chr(179));
gotoxy(60,12);write(chr(179));
gotoxy(70,12);write(chr(179));
gotoxy(10,13);write(chr(195));
gotoxy(11,13);write(chr(452));
gotoxy(12,13);write(chr(452));
gotoxy(13,13);write(chr(452));
gotoxy(14,13);write(chr(452));
gotoxy(15,13);write(chr(452));
gotoxy(16,13);write(chr(452));
gotoxy(17,13);write(chr(452));
gotoxy(18,13);write(chr(452));
gotoxy(19,13);write(chr(452));
gotoxy(20,13);write(chr(197));
gotoxy(21,13);write(chr(452));
gotoxy(22,13);write(chr(452));
gotoxy(23,13);write(chr(452));
gotoxy(24,13);write(chr(452));
gotoxy(25,13);write(chr(452));
gotoxy(26,13);write(chr(452));
gotoxy(27,13);write(chr(452));
gotoxy(28,13);write(chr(452));
gotoxy(29,13);write(chr(452));
gotoxy(30,13);write(chr(197));
gotoxy(31,13);write(chr(452));
gotoxy(32,13);write(chr(452));
gotoxy(33,13);write(chr(452));
gotoxy(34,13);write(chr(452));
gotoxy(35,13);write(chr(452));
gotoxy(36,13);write(chr(452));
gotoxy(37,13);write(chr(452));
gotoxy(38,13);write(chr(452));
gotoxy(39,13);write(chr(452));
gotoxy(40,13);write(chr(197));
gotoxy(41,13);write(chr(452));
gotoxy(42,13);write(chr(452));
gotoxy(43,13);write(chr(452));
gotoxy(44,13);write(chr(452));
gotoxy(45,13);write(chr(452));
gotoxy(46,13);write(chr(452));
gotoxy(47,13);write(chr(452));
gotoxy(48,13);write(chr(452));
gotoxy(49,13);write(chr(452));
gotoxy(50,13);write(chr(197));
gotoxy(51,13);write(chr(452));
gotoxy(52,13);write(chr(452));
gotoxy(53,13);write(chr(452));
gotoxy(54,13);write(chr(452));
gotoxy(55,13);write(chr(452));
gotoxy(56,13);write(chr(452));
gotoxy(57,13);write(chr(452));
gotoxy(58,13);write(chr(452));
gotoxy(59,13);write(chr(452));
gotoxy(60,13);write(chr(197));
gotoxy(61,13);write(chr(452));
gotoxy(62,13);write(chr(452));
gotoxy(63,13);write(chr(452));
gotoxy(64,13);write(chr(452));
gotoxy(65,13);write(chr(452));
gotoxy(66,13);write(chr(452));
gotoxy(67,13);write(chr(452));
gotoxy(68,13);write(chr(452));
gotoxy(69,13);write(chr(452));
gotoxy(70,13);write(chr(180));
gotoxy(10,14);write(chr(179));
gotoxy(20,14);write(chr(179));
gotoxy(30,14);write(chr(179));
gotoxy(40,14);write(chr(179));
gotoxy(50,14);write(chr(179));
gotoxy(60,14);write(chr(179));
gotoxy(70,14);write(chr(179));
gotoxy(10,15);write(chr(192));
gotoxy(11,15);write(chr(452));
gotoxy(12,15);write(chr(452));
gotoxy(13,15);write(chr(452));
gotoxy(14,15);write(chr(452));
gotoxy(15,15);write(chr(452));
gotoxy(16,15);write(chr(452));
gotoxy(17,15);write(chr(452));
gotoxy(18,15);write(chr(452));
gotoxy(19,15);write(chr(452));
gotoxy(20,15);write(chr(193));
gotoxy(21,15);write(chr(452));
gotoxy(22,15);write(chr(452));
gotoxy(23,15);write(chr(452));
gotoxy(24,15);write(chr(452));
gotoxy(25,15);write(chr(452));
gotoxy(26,15);write(chr(452));
gotoxy(27,15);write(chr(452));
gotoxy(28,15);write(chr(452));
gotoxy(29,15);write(chr(452));
gotoxy(30,15);write(chr(193));
gotoxy(31,15);write(chr(452));
gotoxy(32,15);write(chr(452));
gotoxy(33,15);write(chr(452));
gotoxy(34,15);write(chr(452));
gotoxy(35,15);write(chr(452));
gotoxy(36,15);write(chr(452));
gotoxy(37,15);write(chr(452));
gotoxy(38,15);write(chr(452));
gotoxy(39,15);write(chr(452));
gotoxy(40,15);write(chr(193));
gotoxy(41,15);write(chr(452));
gotoxy(42,15);write(chr(452));
gotoxy(43,15);write(chr(452));
gotoxy(44,15);write(chr(452));
gotoxy(45,15);write(chr(452));
gotoxy(46,15);write(chr(452));
gotoxy(47,15);write(chr(452));
gotoxy(48,15);write(chr(452));
gotoxy(49,15);write(chr(452));
gotoxy(50,15);write(chr(193));
gotoxy(51,15);write(chr(452));
gotoxy(52,15);write(chr(452));
gotoxy(53,15);write(chr(452));
gotoxy(54,15);write(chr(452));
gotoxy(55,15);write(chr(452));
gotoxy(56,15);write(chr(452));
gotoxy(57,15);write(chr(452));
gotoxy(58,15);write(chr(452));
gotoxy(59,15);write(chr(452));
gotoxy(60,15);write(chr(193));
gotoxy(61,15);write(chr(452));
gotoxy(62,15);write(chr(452));
gotoxy(63,15);write(chr(452));
gotoxy(64,15);write(chr(452));
gotoxy(65,15);write(chr(452));
gotoxy(66,15);write(chr(452));
gotoxy(67,15);write(chr(452));
gotoxy(68,15);write(chr(452));
gotoxy(69,15);write(chr(452));
gotoxy(70,15);write(chr(217));
gotoxy(68,18);write('ISMAIL');
readln;readln
end.