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

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