ИНФОРМАТИКА! ПРОСТОЕ ЗАДАНИЕ, ПОМОГИТЕ ПОЖАЛУЙСТА.

язык — pascal.

Дана переменая С.
Вывести на экран уменьшение переменой С на показание счестчика от 1 др 10.

var i,s:integer;

begin

write('Введите переменную с: ');

readln (s);

for i:=1 to 10 do writeln (s-i)

end.