Найти периметр и площадь прямоугольника но чтобы стороны были больше нуля - Pascal ABC

Формулировка задачи:

Помогите плиз

Решение задачи: «Найти периметр и площадь прямоугольника но чтобы стороны были больше нуля»

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

var a,b,p,s:real;
begin
writeln('Введите длины сторон прямоугольника');
readln(a,b);
if(a<=0)or(b<=0)then write('Нет решений')
else
 begin
  p:=2*(a+b);
  s:=a*b;
  write('Периметр=',p:0:2,' площадь=',s:0:2);
 end;
end.

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

Создается переменная a и присваивается ей значение, полученное от пользователя.
Создается переменная b и присваивается ей значение, полученное от пользователя.
Создается переменная p и присваивается ей значение 2*(a+b). Это значение представляет периметр прямоугольника.
Создается переменная s и присваивается ей значение a*b. Это значение представляет площадь прямоугольника.
Выводится сообщение о периметре и площади прямоугольника.
Если a или b меньше или равно нулю, то выводится сообщение Нет решений.
Конец программы.