Паскаль. даны две переменные целого типа a и b. если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. вывести на экран новые значения a и b.

Var
A,B,C:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if A<>B then
   Begin
   C:=A+B;
   A:=C;
   B:=C
   End
else
   Begin
   A:=0;
   B:=0
   End;
WriteLn('A = ',A);
WriteLn('B = ',B);
End.

 Вот порядок приготовления пельменей. В посуду смешивают яйцо,вода, мука. чуть соли. .Тесто замешивают до консистенции,чтоб можно было резать ножом.  Дальше            Некоторые раскатывают большой сочень потом стаканом  или другой формой выдавливают  лепешечки на посредственно для пельменей туда кладут фарш слепили и готово.                                                                                                          Другие раскатывают тесто под вид колбаски ,затем ножом эту колбаску разрезают на равные части,которые раскатывают для фарша.  Я знаю три вида формы пельменей.

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.