set serveroutput on
set veri off
set feed off


accept y prompt 'Вкажiть рік > ' number defa 2017
declare
 d number :=&&y;
begin
 if d=0 or d not between -4713 and +9999 then
   dbms_output.put_line(d||' Помилка: рік в оракле з -4713 по +9999');
   return;
 end if;
 if to_char(last_day(to_date(to_char(d,'fm0000')||'0201','yyyymmdd')),'dd')='29' then
   dbms_output.put_line(d||' Високосний');
 else
   dbms_output.put_line(d||' Не високосний');
 end if;
end;
/
SQL> @D:\#\d.sql
Вкажiть рік >
2017 Не високосний
SQL> @D:\#\d.sql
Вкажiть рік > 2000
2000 Високосний
SQL> @D:\#\d.sql
Вкажiть рік > 2100
2100 Не високосний
SQL> @D:\#\d.sql
Вкажiть рік > 0
0 Помилка: рік в оракле з -4713 по +9999
SQL>