Вычислить и напечатать значения функции 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.