Вот так, там можно и таблицей, но мне колонками больше нравится =)
Var a,b: integer;
begin
writeln ('Введите два числа');
read(a,b);
if a=b then a:=0
else
begin
a:=-1*a; b:=-1*b;
end;
writeln(a,' ',b);
end.
Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>><span>a:=1</span>; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
<span>D) Изменятся уровни заголовков.</span>
var
n:integer;
begin
readln(n);
case n mod 12 of
4:writeln('год крысы');
5:writeln('год коровы');
6:writeln('год тигра');
7:writeln('год зайца');
8:writeln('год дракона');
9:writeln('год змеи');
10:writeln('год лошади');
11:writeln('год овцы');
0:writeln('год обезьяны');
1:writeln('год петуха');
2:writeln('год собаки');
3:writeln('год свиньи');
end;
end.