Question

составить программу, которая строит ряд из  n знаков "*" ,  m знаков "!" и n  знаков "*" если n<m 

Answer 1

program mrs3;
var i,m,n:integer;
begin
writeln('m='); readln(m);
writeln('n='); readln(n);
if m>n then begin   
for i:=1 to n do   write('*');   
for i:=n to m do   write('!');   
for i:=m downto n do   write('*');   
end; end.

Answer 2

var m, n, i: integer;
begin
     readln(n, m);
     for i := 1 to n do write('*');
     writeln;
     if (n < m) then
        for i := 1 to m do write('!');
end.     

По условию так =)