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

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

program power;

Uses CRT;

var n: integer;

Var s:char;

begin

n:=1;

while n gt;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;