Вывести на экран таблицу умножения на 9. pascal

[lyulka]

Вывести на экран таблицу умножения на 9.
Пример:
9*1=9
9*2=18
…
9*9=81

[Necare]

program nineunm;
var
i,dev : integer ;
begin
for i:=1 to 9 do
begin
dev:=i*9;
writeln('9*',i,'=',dev);
end;
end.

[IT-man]

без переменной dev

var i:integer;
begin
for i:=1 to 9 do
writeln('9*',i,'=',i*9);
readln;
end.