Сложная задача.

[ВДПУ]

Составить программу, которая выводит на экран несколько строк, состоящий из определенного числа единиц и двоек

[Camaro Chevelle]

а конкретнее?

[ВДПУ]

Сделать через процедуру

[phomm]

Паскаль :

program p1;
var a,b: integer;

procedure print(ach : char; cnt : integer;);
var i: integer;
begin
for I := 1 to cnt do
 write(ach);
end;

begin
writeln('Vvedite 2 chisla, dlya edinits i dvoek');
readln(a,b);
print('1', a);
print('2', b);
readln();
end;

[Son Of Pain]

Было бы замечательно, если бы админы запретили использовать слово 'сложная' в названиях тем. Обычно чем пафоснее название, тем более бессмысленное содержимое внутри. (