Встречено 'to', а ожидался оператор program noname1; var i,s: integer; begin writeln('введите s'); readln(s); while i= 1 to 10 do begin s: = i*7; end; writeln(i,' *7=',s); end. что не так?

Место цикла while нужно использовать цикл for
Program noname1;var i,s:integer;beginwriteln('Введите S');readln(s);for i:= 1 to 10 dobeginS:= i*7;end;writeln(i,' *7=',s);end.
Вот так должно получится.