A123,p123 переменные в прогу внести
readln(a4);
if a4 == a1 then writeln(p1) else
if a4 == a2 then writeln(p2) else
if a4 == a3 then writeln(p3);
Переходите от одного квадрата к другому, выбирая при этом ту цифру, которая меньше – таким образом вы ищите кратчайший путь.
<span>Program prim;
</span>
<span>var n,i: </span>integer;
<span><span>begin
</span></span>
writeln ('Введите число n', n);
<span>
readln (n);
</span>
<span>for i:=</span>1 to <span>n do write (i);</span>
<span>
end.</span>
Sqrt() - функция извлечения квадратного корня; подкоренное выражение должно быть >=0. В Вашем случае: 57-0,3*^3 >=0, т.е x <= 5,75