Вот, посчитал, задание не очень сложное, нужно просто понять где на что умножать/делить.
В строчке read('a'); апострофов быть не должно. Замени на read(a);
While (условие) do
операция цикла
If - если
Then - то
Else - иначе
Например:
C:= A - B;
(Если С больше нуля то)
If C > 0 then begin
(Вывод о том что)
Writeln(число положительное);
...
(Иначе оно)
End esle
(Может быть только отрицательным)
Writeln(число отрицательное);
...
Это же можно проделать с двумя if(если)
If C > 0 then begin
Writeln(число положительное);
...
(Если С меньше нуля)
If C < 0 then begin
Writeln(число отрицательное);
...
УРАВНЕНИЕ
тура (без 1 буквы) - ура
в н е
книга (без 1 буквы и 2-х последних букв) - ни
е