Вычислить функцию - Pascal (80710)

Помогите пожалуйста решить задачу.

Листинг программы

if p<1 then
 a:=sqr(p)
else
 a:=p;

Объяснение кода листинга программы

Условие: if p<1 then. Здесь p - переменная, предположительно числовая, которая сравнивается с числом 1.
Если p меньше 1, то переменная a инициализируется значением sqr(p), то есть p возводится в квадрат.
Иначе (если p больше или равно 1), переменная a присваивается значение p.
Завершение условия.