Написать программу в которой юзер вводит число с клавиатуры и если

// пример программки на языке  Паскаль.

var
   i, x: real;     // объявляем переменные вещественного типа.
begin
  writeln (Введите число, не одинаковое 100: );  // вывод строки на экран.
  readln(x);                           // считываем значение переменной , введенное с клавиатуры.
    if (x gt; 100) then i := x / 2;  // если введенное число больше 100, то разделяем его на 2.
    if (x lt; 100) then i := x * 3; // если введенное число меньше 100, то увеличиваем его в 3 раза.
  writeln (Ответ: , i);   // вывод ответа на экран.
end.