program petla_for;
uses crt;
var
liczba: double;
 i : integer;
begin
clrscr;
write ('podaj liczbe: ');
readln(liczba);
for i:=1 to 10 do
begin
writeln(liczba*i:6:0);
end;
for i:=10 downto 1 do
begin
writeln(liczba*i:6:0);
end;
readln();
end.