Построить таблицу значений для функции 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.

  друг  жить на любом этаже дома. поэтому, для решения используем уравнение 24=х. но 24=16. следовательно, х=16. в доме 16 этажей.

program xxx;

var a,s : string;

    i: integer;

begin

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

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.