Встречено '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.

Вот так должно получится.