Как решить? И записать правильно решение!?

Объяснение:

ответ я дать не смогу, но могу попробовать объяснить. IF - значит если.

То есть значение

if A:=<0

writeln А;

будет означать что если А больше 0, то будет вывод значения на экран.

Надеюсь, был полезен)