Составьте таблицу значений функции y=5-x²:2 [-5;5] шаг 0,5 Pascal

Как-то даже не хочется размышлять, как можно было это решить по-нормальному...

var s:string; a:array[1..4] of byte; i:integer;
begin
read(s);
for i:=1 to length(s) do
  begin    if s[i]='(' then a[1]:=i;    if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end    end;  for i:=length(s) downto 1 do
  begin    if s[i]=')' then a[4]:=i;    if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end    end;  s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1);
write(s);
end.

Для того, чтоб не запутаться :
х-длина куска ткани;
у-его ширина;
S-площадь ткани, которая получится при вводе длины и ширины ткани;
с-цена , которую вы должны получить;
Не пугайтесь, если при цене будет вылетать число*В, т.к. изначально В-данная цена за 1м^2
Приступаем
1) блок-схема (фото)
2) программа
Program (название);
uses crt;
var B,x,y,S,c:real;
begin
writeln('введите длину ткани=');
readln(x);
writeln('введите ширину ткани=');
readln(y);
S:=x*y;
c:=S*B;
writeln('цена за кусок ткани=',c);
end.
3) мат
S=x*y и c(цена)=в(данная цена за 1 м^2)*S