Question

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

Answer 1

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