Question

Ввести с клавиатуры 10 чисел. Уменьшить каждое из них на 11 и выдать на экран.
ПАСКАЛЬ!!!

Answer 1

var a, i: integer;

begin

for i:= 1 to 10 do

begin

 readln(a);

 writeln(a-11);

end;

end.