Вычесление функций...

[Lemo]

немного поиспрвлял, Вот

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

var a:real;
y:real;
begin
Write ('VveDiT A=');
readln (a);
//y:=ifthen(a<=-1, -(1/sqr(a)), ifthen(a<2, sqr(a), 4));
if a<=-1 then y:=-(1/sqr(a)) else
if a<2.4 then y:=sqr(a) 
else y:=4;
writeln ('y=', y:6:2);
readln;
end.

Но все равно моя на4альная программа правильна написана, сс4итает y и y1! мне так кажеться!Там же дано 3 графика. и я 3 ис4еслил по коду:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var a:real;
    y,y1,y2:real;
begin
Write ('VveDiT A=');
readln (a);
y:=-(1/(a*a));
y1:=a*a;
y2:=4;
writeln ('y=', y:6:2);
writeln ('y1=', y1:6:2);
writeln ('y2=', y2:6:2);
readln;
end.