TABLA DE MULTIPLICAR DEL 1 AL 10 DE UN NUMERO CUALQUIERA (.pas).

PROGRAM TABLA_DE_MULTIPLICAR;
USES CRT;
VAR x,y:INTEGER;
begin
ClrScr;
write('ESCRIBA UN NUMERO: ');
readln(y);
x:=0;
while x<10 do
begin
x:=x+1;
writeln(y,' x ',x,' = ',y*x);
end;
readln
end.