Дано функции y=-1/(а*а), y=а*а и y=4. Найти значения функций для действительного n — Pascal(Паскаль)

program Project1;
var  y1,y2,y3:real;
            a:real;
begin
  write('vvedit chislo bolshee 0 a= ');
  readln(a); 
  writeln;
   y1:=-1/(a*a);
   y2:=a*a;
   y3:=4;
  if a=0 then write('ne isnye') else
  writeln('y1=',y1:6:2,'   ','y2=',y2:6:2,'   ','y3=',y3:6:2);
    readln;
end.