program laba;   //начало программы

var      //объявляем переменные
   x
 , y
 : real; //вещественного типа, что бы вводить/выводить дробные числа
 
begin    //начало программы

   writeln('Enter x: ');
   readln(x);              //вводим X
   
   if (0 >= x) then        //если число меньше нуля
   begin
      y:=0;                //присвоить Y значение 0
   end
   else if (1 >= x) then   //если оно больше нуля и меньше 1
   begin
      y:=x;                //присвоить ему значение введеного
   end
   else if (1 < x) then    //если же оно больше 1
   begin
      y:=x*x;              //присвоить значение квадрата введеного
   end;
   
   //выводим число форматируемым выводом:
   //не более 10 цифр целой части и не более 5 цифр дробной
   writeln('Y is: ', y:10:5);
   
end.