1) шрифт (выбор шрифта)
2) размер шрифта
3) живность шрифта
4) наклон шрифта
5) нижнее подчеркивает текстов
6)расположение шрифта относительно листа (слева, по центру, справа)
7) добавление пунктов в текст.
потом посмотрите у какого шрифта какое расписание и впишите справа их названия.
Var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')
else writeln('Не принадлежит')
end.
Var a,b:integer;
begin
read(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('a=',a,' b=',b);
<span>end.</span>
Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно.
Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D