Напишите программу, которая выводит на экран таблицу умножения на n ( n-целое число в диапазоне от 2 до 10, вводимое

Вариант с очисткой экрана в PascalABC. Пуск программы — Shift+F9.

program power;

Uses CRT;

var n: integer;

Var s:char;

begin

n:=1;

while n >0 do

begin

read();

write(\'Enter n \');

readln(n);

for i:integer:=2 to 10 do

writeln(i,\' * \',n ,\' = \',i*n);

Writeln(\'For continue pres \"Enter\".\');

Writeln(\'For stop press \"n\")\');

readln(s);

if s=\'n\' then n:=0;

clrscr;

end

end.

Для работы без очистки экрана нужно удалить строки:

…

Uses CRT;

…

clrscr;

…