program TASK_3
implicit none
real :: x = 0.0, y = -3, u

write(*, '(T6)', advance="no")
do while (y < 1.1)
    write(*, '(F6.1)', advance="no") y
    y = y + 0.2
enddo
write(*, *)

do while (x < 3.1)
    y = -3.0

    write(*, '(F5.1)', advance="no") x
    do while (y < 1.1)
        u = sqrt(x ** 2 + 4 * y ** 2)
        write(*,'(F6.2)', advance="no") u
        y = y + 0.2
    end do
    write(*, *)

    x = x + 0.15

end do

end