программа в paskal нужно ввести функцию с массивом от минус пяти до пяти с шагом 0,5

[JUliaR]

Ребята, пожалуйста очень срочно нужна помощь, очень прошу!!???
нужна программа в paskal нужно ввести функцию с массивом от минус пяти до пяти с шагом 0,5. а функция следующая: y(x)= 1/x^2, если х<0, и x^2, если x>=0. помогите,очень очень прошу???


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Utkin]

ПОМОГИИИИИИТЕ!??

А если капс лок нажать два раза, то текст становится еще более впечатляющим и неизбежно привлекает внимание.

помогите,очень очень прошу???

Если Вы у нас спрашиваете, то честно говоря просите не очень.

[Mad_Cat]

x:=-5;
for i:=0 to 20 do
begin
x:=x+i*0.5;
if x<0 then y[i]:=1/x/x
else y[i]:=x*x;
writeln(x:6:1,y[i]:8:2)
end;