Найти два числа a и b сообщить имеют ли эти два числа одинаковые или разные знаки. паскаль

Текстовые процессоры, в отличие от текстовых редакторов, имеют больше возможностей для форматирования текста, внедрения в него графики, формул, таблиц и других объектов. поэтому они могут быть использованы не только для набора текстов, но и для создания различного рода документов, в том числе официальных. а так в принципе ничем в обиходе это одно и то же текстовые редакторы позволяют создавать и редактировать текстовые документы (например, лексикон). текстовые процессоры, кроме этого, позволяют форматировать документы-оформлять их различным образом, вставлять графики, диаграммы, таблицы и т. д. (например, word).

Program slovo; var a,c: string; {описание строковой переменной}        i: integer; begin read(a); write('первоначальное слово:   ',a); c: =a;   {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)} i: =length(a); {присвоение переменной i значения длинны строки} a[1]: =a[i];   {присвоение первому значению значение последнего} a[i]: =c[1];   {присвоение последнеe значению значение первого} write('полученное слово:   ',a); end.