Построить таблицу значений для функции y=x^2, на отрезке[4; 10], с шагом 0,1

var    x: real;

begin    writeln('x', #9, 'y');     x : = 4;     while(x < = 10) do     begin      writeln(x: 3: 1, #9, x * x: 4: 2);       x : = x + 0.1;     endend.

карандаш - графит; ископаемое, состоящее из угля и желез это же вещество, вставленное пруточками в деревянную трубочку, для черченья и рисованья.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.