Даны два числа, если они равны то возвести их в квадрат и вывести на экран, если не равны то заменить их половиной и вывести​

  program blankword;

uses crt;

var s1: string;

        l: integer;

begin

      clrscr;

      write('введите слово: ');

      readln(s1);

      l=length(s1);

 

      for i: =l downto 1 do          if(i mod 2 = 0)then              insert(' ', s1, i);               writeln(s1);               readkey;

     

  end.

 

 

{составте программу табулирования функции  y=1/x^2 с шагом 0,5 и интервал -5< x< 7}const      max_x = 7;       min_x = -5;       d_x = 0.5; var      x, y: real; begin      x : = min_x;       while(x < max_x) do       begin              if(x < > 0) then                       y : = 1 / (x * x)              else y : = 0;               writeln('x=', x: 2: 1, ' y=', y: 2: 5);               x : = x + d_x;       end; end.