Варя. Упражнение 3. New

//Упражнение 3.
//Написать процедуру, принимающую на вход два числа и рисующую прямоугольник.
//Program_3;
//var
//n,m,i,j:integer;
//s:string;
//begin
//sh:='* ';
//readln(n);
//readln(m);
//for j:=0 to n-1 do
//begin
//begin
//   for i:=1 to m do
//   write(s);
//end;
//writeln;
//end;
//end.


var
n,m,i,j:integer;
s:string;

procedure pr (n,m:integer);
var j,i:integer;
begin
s:='* ';

for j:=0 to n-1 do
begin
begin

   for i:=1 to m do
   write(s);
end;
writeln;
end;
end;

begin
readln(n);
readln(m);
pr(n,m);
end.