С клавиатуры запрашивается любая цифра от 2 до 9 а затем пк печатает таблицу умножения на эту цифру. Определить вид алгоритма. Составить блок-схему и пограмму (в паскале).

Varian 1 PascalABC.Net

begin  var s := ReadInteger;  SeqGen(11, i -> i * s).Println; end.

Varian 2

var  x, i, n: byte; begin  repeat    Writeln('Введите число ');    Readln(x);  until x in [2..9];  for i := 1 to 10 do    Writeln(x,'*',i,'=',x*i); end.