Составь программу вывода на экран рисунка бабочки из псевдографических символов

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

мало данных для главное - размер пробоины и размер листа