Write a program that prints the multiplication table by n (an n-integer in the range of 2 to 10

Write a program that prints the multiplication table by n (an n-integer in the range of 2 to 10, entered from the keyboard), Pascal.

Option with clearing the screen in PascalABC. Start the program – 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.

To work without clearing the screen, you need to delete the lines:

…

Uses CRT;

…

clrscr;

…