С клавиатуры запрашивается любая цифра от 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.