Напишите пожелание с новым годом, которое вы хотите, чтобы обязательно исполнилось.

ответ:

я хочу на новый год чтобы мои родители всегда и ни когда не ссорились,чтобы мы были всегда счастливы.я всем желаю чтобы родители наши не ссорились и чтобы всегда были вместе!

Begin

    writeln('¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶¶1¶¶¶¶_¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶1');

    writeln('__¶¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('__¶¶¶__¶¶¶¶¶¶_¶¶¶');

    writeln('__¶¶¶___¶__¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶¶¶¶_¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶_¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶1');

    writeln('__¶__¶¶¶¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1¶¶¶¶¶_¶¶¶¶¶');

    writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');

    writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');

    writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');

    writeln('¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');

    writeln('¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');

    writeln('___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶___¶¶¶¶¶');

    writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶___¶¶¶¶_¶¶¶¶');

    writeln('¶___¶¶¶¶_¶¶¶¶¶¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶1¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶1¶¶¶¶¶');

    writeln('¶¶1¶¶');

    writeln('¶¶');

    writeln('¶¶');

end.

Подробнее - на -

Var
  m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer;
  s:real;
  a:array[,]of integer;
begin
write('Число строк: ');
readln(m);
write('Число столбцов: ');
readln(n);
setlength(a,m+1,n+1);
for i:=1 to m do
  begin
  writeln('Вводите элементы строки ',i,' по одному');
  for j:=1 to n do    readln(a[i,j]);
  end;
min:=a[1,1];
max:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to m do
  for j:=1 to n do
    begin
    if a[i,j]<min then
      begin
      min:=a[i,j];
      imn:=i;
      jmn:=j;
      end;
    if a[i,j]>max then
      begin
      max:=a[i,j];
      imx:=i;
      jmx:=j;
      end;
    end;
p:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=p;
writeln('Измененный массив:');
for i:=1 to m do
  begin
  for j:=1 to n do    write(a[i,j]:5);
  writeln;
  end;
write('Введите номер строки: ');
readln(i);
for j:=1 to n do
  if a[i,j]<0 then
    begin
    s:=s+a[i,j];
    k:=k+1;
    end;
writeln('Ср.ариф. отр.чисел в строке: ',s/k);  
end.