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

program lol_kek_4ebyrek;var x, y:integer;beginwriteln('Формула: y=x^2');for x:=1 to 10 dobeginy:=x*x;writeln('При x=',x,' y=',y);end;end.