Составьте программу, которая выводит ряд из n знаков "? " и m знаков "! ", где n и m задается с клавиатуры. например при n=3, m=5 ответ

Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?')  ;
for i:=1 to m do
write('!')  ;
end.