Ну несложно же... пару минут от силы на задачу.
var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.
1) 0(False, ложь)
2)1(True, правда)
1.Начало
2.Сделать ход на 2 клетки вправо
3.Сделать ход вверх на 1 клетку
4.ход на 2 клетки влево
5.Ход на 2 клетки вверх
6.ход на 4 клетки вправо
7.ход на 2 клетки вниз
8.Ход на 1 клетку вправо
9.ход на 1 клетку вверх)
У тебя не правильно сделан алгоритм