Для целых чисел задаётся переменная integer.
Для вещественных(то есть дробных) чисел задаётся переменная real.
Таким образом мы получаем:
1) L1: integer;
2) srd: real;
............................................
Дай свой вк, я могу решить это
<span>var x,y:real;
begin
write('x=');
readln(x);
if x<=-1 then y:=1
else if(x>-1)and(x<=2) then y:=x
else y:=1/(x*x);
write('y=',y:0:2);
readln
end.
</span>