Распечатать в столбик таблицу умножения на 7 . составить программу .

Program tablica;
var
i:integer;
begin
i:=1;
while(i<=10)do 
begin 
writeln('7*',i,'=',7*i); 
i:=i+1; 
end;
end.