Вычислить и напечатать значения функции y=x^2 для x от 1 до 10 с шагом 1 ( используя цикл for )

 Var
    x:byte;
 Begin
 WriteLn('f(x) = x^2');
 For x:= 1 to 10 do
     WriteLn('f(',x,') = ',x*x)
 End.