написать программу вывода чисел до заданного числа n паскаль Очень срочно надо !!!!!!!!

Огромное Вам спасибо!!!

program s81jsd;var a, i: Integer;beginwriteln('Введите число: ');readln(a);for i:=0 to a dobeginwriteln('Число: ', i);end;end.