pr5

program pr5
real::x0,xk,dx,y0,yk,dy,y,x,a
integer::i,j,imax,jmax
write(*,*) 'Input x0,xk,dx,y0,yk,dy,a,b'
read(*,*) x0,xk,dx,y0,yk,dy,a,b
jmax=nint((yk-y0)/dy+0.5)+1 !nint- округление к целому
imax=nint((xk-x0)/dx+0.5)+1
do j=1,jmax
    y=yk-(j-1)*dy
    do i=1,imax
        x=x0+(i-1)*dx
        if ((x/a)**2-(y/b)**2<1 .AND. abs(y)<a) then !ваше условие
            write(*,'(a\)') ' /' ! (\)-без перехода на новую строку
        else
            write(*,'(a\)') ' .'
        end if
    end do
    print*,' ' !переход на новую строку
end do
end