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

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.

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

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.