دوزلی اوغلان آذربایجانی تورکی شعر موزیک

نمره ي خام

program nomrekham;
uses
wincrt;
var riazi1,computer1,binesh1,adabiat1,zaban1
,riazi0,computer0,binesh0,adabiat0,zaban0
,nomreriazi,nomrecomputer,nomrebinesh,nomreadabiat,nomrezaban,nomrekol:real;
begin writeln('riazi1');
readln(riazi1);
writeln('riazi0');
readln(riazi0);
writeln('computer1');
readln(computer1);
writeln('computer0');
readln(computer0);
writeln('binesh1');
readln(binesh1);
writeln('binesh0');
readln(binesh0);
writeln('adabiat1');
readln(adabiat1);
writeln('adabiat0');
readln(adabiat0);
writeln('zaban1');
readln(zaban1);
writeln('zaban0');
readln(zaban0);
nomreriazi:=((riazi1*3)-(riazi0))/3;
nomrecomputer:=((computer1*3)-(computer0))/3;
nomrebinesh:=((binesh1*3)-(binesh0))/3;
nomreadabiat:=((adabiat1*3)-(adabiat0)/3);
nomrezaban:=((zaban1*3)-(zaban0))/3;
nomrekol:=((nomreriazi*3)+(nomrecomputer*4)+(nomrebinesh*2)+(nomreadabiat*3)+(nomrezaban*3))/5;
writeln('nomrekol az 90',nomrekol);
end.