var
begin
write ('введите значения n и m' );
readln (n, m);
for i := m to n do
write ( '(*)' );
write ('*' );
end.
a) При m=1 n=5

1236548    3   23.03.2021 22:02    1