Program abc1;
var i,j:integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
writeln(j,'x',j,'=',i*j);
end.
Переделать эту программу с помощью цикла repeat или while

все правильно, я сама ошибку сделала в условии, спасибо большое

Program abc1;var i,j:integer;begini := 0;while i < 10 dobegin  i := i + 1;  j := 0;  while j < 10 do  begin    j := j + 1;    writeln(j,'x',j,'=',i*j);    end;end;end.//*Если это программа для вывода таблицы умножения, то она не правильная. Я только поменял циклы.