var i:integer ;begin writeln ('загадайте число ,умножте на 5,прибавте 8,умножте на 2 и введите что получилось '); readln(i);writeln (((i div 2)-8)div 5); end.
var I:integer; begin writeln (' загадайте число умножьте на 5, прибавьте 8, умножьте 2 и введите что получилось');
readln(I); writeln(((I div 2)-8) div 5); end.
